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This publication describes the internal logic of the 
FORTRAN IV (G) compiler. 
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into an executable load module by the linkage editor. 
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PREFACE 



This publication provides customer 
engineers and other technical personnel 
with information describing the internal 
organization and operation of the FORTRAN 
IV (G) compiler. It is part of an inte-r 
grated library of IBM System/360 operating 
System Program Logic Manuals. Other publi- 
cations required for an understanding of 
the FORTRAN IV <G> compiler are: 

I BM System/360 Operating System; 

Principles of Operation . Form A22-6821 

£QBIRAN_iy_Language, Form C28-6515 

Introduction to Control Program Logic, 
Program Logic Manual , Form Y28-6605 

FORTRAN IV CG and H) Progr ammer's Guide, 
Form C28-6817 

Any reference to a Programmer's Guide 
in this publication applies to FORTRAN 
IV (G and H) P rogrammer's Guide , Form 
C28-6817. The FORTRAN IV (G) Program- 
mer's Guide , Form C28-6639, (to which 
references may exist in this publica- 
tion) has been replaced by the com- 
bined G and H Programmer ' s Guide . 

Although not required, the following 
publications are related to this publica- 
tion and should be consulted: 

IBM System/360 Operation System: 

Seq uentia l Access Methods, P rog ram Logic 
Manual, Form Y28-6604 



Concepts and Facilitie s, Form C28-6535 

Supervisor and Data Management Macro- 
Instructions , Form C28-6647 

Linkage Editor, Prog r am Logic . Manua 1 , 

Form Y28Hn>10 



System Generation , Form C28-6554 

This publication consists of 
sections: 



two 



section 1 is an introduction that 
describes the FORTRAN IV (G) compiler as a 
whole, including its relationship to the 
operating system. The major components of 
the compiler and relationships among them 
are also described in this section. 

Section 2 consists of a discussion of 
compiler operation. Each component of the 
compiler is described in sufficient detail 
to enable the reader to understand its 
operation, and to provide a frame of 
reference for the comments and coding supp- 
lied in the program listing. Common data 
such as tables, blocks, and work areas is 
discussed only to the extent required to 
understand the logic of each component. 
Flowcharts are included at the end of this 
section. 

Following Section 2, are appendixes that 
contain reference material. 

If more detailed information is 
required, the reader should see the com- 
ments, remarks, and coding in the FORTRAN 
IV (G) program listing. 
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SECTION 1: INTRODUCTION TO THE COMPILER 



This section contains general informa- 
tion describing the purpose of the FORTRAN 
IV (G) compiler, the minimum machine confi- 
guration required, the relationship of the 
compiler to the operating system, compiler 
design and implementation, and compiler 
output. The various rolls, 1 variables, 
registers, pointers, and drivers used by 
the compiler are also discussed. 



PURPOSE OF THE COMPILER 



The IBM System/360 Operating System 
FORTRAN IV (G) compiler is designed to 
accept programs written in the FORTRAN IV 
language as defined in the publication IBM 
System/360: FORTRAN IV Languag e, Form 
C28-6515. 

The compiler produces error messages for 
invalid statements, and, optionally, a 
listing of the source module, storage maps, 
and an object module acceptable to the 
System/360 Operating System linkage editor. 



Operating System. As a processing program, 
the compiler communicates with the control 
program for input/output and other ser- 
vices. A general description of the con- 
trol program is given in the publication 
IBM System/360 Operati n g System; In troduc- 
tion to Con t rol Program Logic, Pr o gram 
Logic Manual . 

A compilation, or a batch of compila- 
tions, is requested using the job statement 
(JOB), the execute statement (EXEC), and 
data definition statements (DD). Alterna- 
tively, cataloged procedures may be used. 
A discussion of FORTRAN IV compilation and 
the available cataloged procedures is given 
in the publication IBM System/360 Oper at ing 
System: F O RTR A N IV (G) P rogr am mer' s Guide . 

The compiler receives control initially 
from the calling program (e.g., job sche- 
duler or another program that CALLs, LINKs 
to, or ATTACHes the compiler). Once the 
compiler receives control, it uses the QSAM 
access method for all of its input/output 
operations. After compilation is com- 
pleted, control is returned to the calling 
program. 



MACHINE CONFIGURATION 



COMPILER DESIGN 



The minimum system configuration 
required for the use of the IBM System/ 360 
Operating System with the FORTRAN IV (G) 
compiler is as follows: 

• An IBM System/360 Model 40 computer 
with a storage capacity of 128K bytes 
and a standard and floating-point 
instruction set. 

• A device for operator communication, 
such as an IBM 1052 Keyboard Printer. 



At least one direct-access device 
vided for system residence. 



pro- 



The compiler will operate within a total 
of 8 OK bytes of main storage. This figure 
includes space for the compiler code, data 
management access routines, and sufficient 
working space to meet other storage 
requirements stated throughout this 
publication. 

Any additional storage available is used 
as additional roll storage. 



LIMITATIONS OF THE COMPILER 



COMPILER AND SYSTEM/360 OPERATING SYSTEM 



The FORTRAN IV (G) compiler is a proces- 
sing program of the IBM System/ 360 



4 Most of the tables used by the compiler 
are called rolls. (Further explanation of 
rolls is given in "Rolls and Roll 
Controls.") 



The System/360 Operating System FORTRAN 
IV (G) compiler and the object module it 
produces can be executed on all System/360 
models from Model 40 and above, under 
control of the operating system control 
program. All input information must be 
written in either BCD or EBCDIC representa- 
tion. The compiler is designed to process 
all properly written programs so that the 
object code produced by the compiler is 
compatible with the existing mathematical 
library subroutines. 
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If ten source read errors occur during 
the compilation, or if it is not possible 
to use SYSPRINT, the operation of the 
compiler is terminated. The operation of 
the compiler is also limited by the availa- 
bility of main storage space. The compila- 
tion is terminated if: 

• The roll storage area is exceeded 

• Any single roll exceeds 64K bytes, 
thereby making it unaddressable 

• The WORK or EXIT roll exceeds its 
allocated storage 

Note : If any of these conditions occur 
during the first phase of the compilation, 
the statement currently being processed may 
be discarded; in this case, the compilation 
continues with th€» next statement. 



COMPILER IMPLEMENTATION 



The primary control and processing rou- 
tines (hereafter referred to as "POP rou- 
tines" or "compiler routines") of the com- 
piler are primarily written in machine- 
independent pseudo instructions called POP 
instructions. 

Interpretation of the pseudo instruc- 
tions is accomplished by routines written 
in the System/360 Operating System assembl- 
er language. These routines (hereafter 
referred to as "POP subroutines") are an 
integral part of the compiler and perform 
the operations specified by the POP ins- 
tructions, e.g., saving of backup informa- 
tion, maintaining data indicators, and gen- 
eral housekeeping. 

Control of the compiler operation is 
greatly affected by source language syntax 
rules during the first phase of the compil- 
er, Parse. During this phase, identifiers 
and explicit declarations encountered in 
parsing are placed in tables and a Polish 
notation form of the program is produced. 
(For further information on Polish nota- 
tion, see Appendix c, "Polish Notation 
Formats . " ) 



The compiler quite frequently uses the 
method of recursion in parsing, analysis, 
and optimization. All optimizing and code 
generating routines, which appear in later 
phases, operate directly on the tables and 
Polish notation produced by Parse. 

The compiler is also designed so that 
reloading of the compiler is unnecessary in 
order to accomplish multiple compilations. 



POP LANGUAGE 



The FORTRAN IV (G) compiler is written 
in a combination of two languages: the 
System/360 Operating System assembler lan- 
guage, which is used where it is most 
efficient, and the POP language. 

The POP language is a mnemonic macro 
programming language whose instructions 
include functions that are frequently per- 
formed by a compiler. POP instructions are 
written for assembly by the System/ 360 
Operating System assembler, with the POP 
instructions defined as macros. Each POP 
instruction is assembled as a pair of 
address constants which together indicate 
an instruction code and an operand. A 
statement or instruction written in the POP 
language is called a POP. The POP instruc- 
tions are described in Appendix A. 



COMPILER ORGANIZATION 



The System/360 Operating System FORTRAN 
IV (G) compiler is composed of a control 
phase. Invocation, and five processing 
phases (see Figure 1) : Parse, Allocate, 
Unify, Gen, and Exit. The operating system 
names for these phases are, respectively, 
IEYFORT, IEYPAR, IEYALL, IEYUNF, IEYGEN, 
and IEYEXT. (The first level control and 
second level processing compiler routines 
used in each phase are shown in Figure 2. ) 
In addition, Move is a pre-assembled work 
area, IEYROL. 
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Figure 1. Overall Operation of the Compiler 
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Control Phase: Invocation (IEYFORT) 



The Invocation phase (IEYFORT) is loaded 
upon invocation of the compiler and remains 
in core storage throughout compilation. It 
is entered initially from the calling pro- 
gram, from each module at the end of its 
processing, and from Exit after compilation 
is complete. 

At the initial entry, the Invocation 
phase initializes bits in IEYF0RT1 from the 
options specified by the programmer for the 
compilation, opens data sets, and fetches 
the modules IEYPAR, IEYALL, IEYUNF, IEYGEN, 
and IEYEXT via a series of LOAD macro 
instructions. These modules remain in core 
storage for a series of main program and 
subprogram compilations unless it is deter- 
mined that additional space required for 
tables is not available. When this occurs, 
modules that precede the active one are 
deleted, and compilation is resumed. If 
more space is required, modules that follow 
the currently active one are deleted. 

When a module completes processing, it 
returns to IEYFORT, which ensures the pre- 
sence of the next module and transfers to 
it. During initialization for a subpro- 
gram, IEYFORT ensures that all modules are 
loaded. 

The last entry is made from the Exit 
phase at the completion of a compilation. 
When the entry is made from Exit, the 
Invocation phase checks for multiple compi- 
lations. If another compilation is 
required, the compiler is reinitialized and 
the main storage space allocated for the 
expansion of rolls is assigned to the next 
compilation; otherwise, control is returned 
to the calling program. 



by Parse to perform the storage allocation 
for the variables defined in the source 
module. The addressing information thus 
produced is then left in main storage to be 
used by the next phase. 



The ESD cards for the object module 
itself, COMMON blocks and subprograms, and 
TXT cards for NAMELIST tables, literal 
constants and FORMAT statements are pro- 
duced by Allocate on the SYSPUNCH and/or 
SYSLIN data sets. Error messages for 
COMMON and EQUIVALENCE statements, unclosed 
DO loops and undefined labels are produced 
on SYSPRINT; on the MAP option, maps of 
data storage are also produced. 



Phas e 3: Unify_XlEYUNF)_ 



The Unify phase optimizes the usage of 
general registers within DO loops by 
operating on roll data which describes 
array references. The optimization applies 
to references which include subscripts of 
the form ax+b, where a and b are positive 
constants and x is an active induction 
variable (that is, x is a DO-controlled 
variable and the reference occurs within 
the DO loop controlling it) , and where the 
array does not have any adjustable dimen- 
sions. The addressing portion of the 
object instruction for each such array 
reference is constructed to minimize the 
number of registers used for the reference 
and the number of registers which must be 
changed as each induction variable changes. 



Phase 1: Parse (IEYPAR) 



Parse accepts FORTRAN statements in card 
format from SYSIN and scans these to pro- 
duce error messages on the SYSPRINT data 
set, a source module listing (optional), 
and Polish notation for the program. The 
Polish notation is maintained on internal 
tables for use by subsequent phases. In 
addition, Parse produces the roll entries 
defining the symbols used in the source 
module. 



Phase 2: Allocate (IEYALL) 



Allocate, which operates immediately 
after Parse, uses the roll entries produced 



Phase H: Gen (IEYGEN) 



Gen uses the Polish notation produced by 
Parse and the memory allocation information 
produced by Allocate. From this informa- 
tion, Gen produces the code, prologues, and 
epilogues required for the object module. 
In order to produce the object code. Gen 
resolves labeled statement references 
(i.e., a branch target label) and subpro- 
gram entry references. 



The final output from Gen is a complete 
form of the machine language code which is 
internally maintained for writing by the 
Exit phase. 
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Phase 5: Exit (IEYEXT) PRINT data set in a format similar to that 

produced by an assembly program. 

Exit, which is the last processing phase 
of the compiler, produces the TXT cards for 

the remaining portion of the object module, Ro ll (IEYROL) 
the RLD cards (which contain the relocat- 
able information), and the END card. This 

output is placed optionally on the SYSLIN Roll contains static rolls and roll 

data set for linkage editor processing information always required for compiler 

and/or SYSPUNCH if a card deck has been operations. These are described under the 

requested. Additionally, a listing of the heading "Rolls and Roll controls" later in 

generated code may be written on the SYS- this section. 
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•Figure 2. Compiler Organization Chart 
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COMPILER STORAGE CONFIGURATION 



Figure 3 illustrates the relative posi- 
tions, but not the relative sizes of the 
component parts of the FORTRAN compiler as 
they exist in main storage. The component 
parts of each phase are described in Sec- 
tion 2. 



COMPILER OUTPUT 



The source module (s) to be compiled 
appear as input to the compiler on the 
SYSIN data set. The SYSLIN, SYSPRINT, and 
SYSPUNCH data sets are used (depending on 
the options specified by the user) to 
contain the output of the compilation. 



The output of the compiler is repre- 
sented in EBCDIC form and consists of any 
or all of the following: 



Object Module (linkage editor input) 



Roll Storage is Allocated from this 
Area 



Source Module listing 
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Parse phase 

Quotes and 
messages 
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Figure 3. Compiler Storage Configuration 



Object Module listing 



Storage maps 



Error messages (always produced) 



Relocatable card images for punching 

The overall data flow and the data sets 
used for compilation are illustrated in 
Figure 4. The type of output is determined 
by compile time parameters. 
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Figure 4. Compiler Output 
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OBJECT MODULE 



The configuration of the object module 
produced by the FORTRAN IV (G) compiler is 
shown in Figure 5. 



Entry point > 
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Base table 
Branch table 



Subprogram argument 
lists 



Subprogram addresses 
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in DATA and PAUSE 
statements) 



FORMAT statements 



Temporary storage 
and constants 



j Program text 

L 



• Figure 5. object Module Configuration 



of the object module. Among other func- 
tions, these instructions set general 
register 13 (see "Object Module General 
Register Usage") and perform various opera- 
tions, depending on whether the program is 
a main program or a subprogram and on 
whether it calls subprograms. (See "Code 
Produced for SUBROUTINE and FUNCTION 
Subprograms. " ) 



SA VE AREA: The save area, at maximum 72 
bytes long, is reserved for information 
saved by called subprograms. Figure 6 
shows an example of the use of this area in 
program Y, which is called by program X, 
and which calls program Z. 

The first byte of the fifth word in the 
save area (Save Area of Y + 16) is set to 
all ones by program Z before it returns to 
program Y. Before the return is made, all 
general registers are restored to their 
program Y values. 



BAS E TABLE: The base table is a list of 
addresses from which the object module 
loads a general register prior to accessing 
data; the general register is then used as 
a base in the data referencing instruction. 

Because an interval of 4096 bytes of 
storage can be referenced by means of the 
machine instruction D field, consecutive 
values representing a single control sec- 
tion in this table differ from each other 
by at least 4096 bytes. Only one base 
table entry is constructed for an array 
which exceeds 4096 bytes in length; hence, 
there is a possibility that an interval of 
more than 4096 bytes exists between conse- 
cutive values for a single control section 
in the table. 



Components of the Object Module 



The following paragraphs describe the 
components of the object module produced by 
the FORTRAN IV (G) compiler. 

HEADING : The object module heading 
includes all initializing instructions 
required prior to the execution of the body 



The addresses compiled into this table 
are all relative, and are modified by the 
linkage editor prior to object module 
execution. Those entries constructed for 
references to COMMON are modified by the 
beginning address of the appropriate COMMON 
block; those entries constructed for 
references to variables and constants 
within the object module itself are modi- 
fied by the beginning address of the appro- 
priate object module. 
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Figure 6. Example of Use of Save Area 



BRANCH TABLE: 



This table contains one 



fullword entry for each b ranch target labe l 
(a label referred to in a branch statement) 
and statement function in the source 
module. In addition, one entry occurs for 
each label produced by the compiler in 
generating the object module. These labels 
refer to return points in DO loops and to 
the statement following complete Logical IF 
statements, and are called made labels . 



In the object module code, any branch is 
performed by loading general register 14 
(see "Object Module General Register 
Usage") from this table, and using a BCR 
instruction. The values placed in this 
table by the compiler are relative ad- 
dresses. Each value is modified by the 
base address of the object module by the 
linkage editor. 



SUBPROGRAM ARGUMENT LISTS ; This portion of 
the object module contains the addresses of 
the arguments for all subprograms called. 
In calling a subprogram, the object module 
uses general register 1 to transmit a 
location in this table. The subprogram 
then acquires the addresses of its argu- 
ments from that location and from as many 
subsequent locations as there are argu- 
ments. The sign bit of the word containing 
the address of the last argument for each 
subprogram is set to one. 



SUBPR OGRAM_ADDRESSES ; This list contains 
one entry for each FUNCTION or SUBROUTINE 
subprogram referenced by the object module. 
The entry will hold the address of that 
subprogram when it is supplied by the 
linkage editor. The compiler reserves the 
correct amount of space for the list, based 
on the number of subprograms referred to by 
the source module. 



EQUIVALENCE VARIABLES : 

object module 

variables and arrays, listed in EQUIVALENCE 

sets which do not refer to COMMON. 



This area of the 
contains unsubscripted 



SCALAR 



VARIABLES: 



All 



non-subscripted 

variables which are not in COMMON and are 
not members of EQUIVALENCE sets appear in 
this area of the object module* 

ARRAYS : All arrays which are not in 
COMMON, and are not members of EQUIVALENCE 
sets appear in this area of the object 
module. 

NAMELIST TABLES : 

and DISPLAY statement in the source module, 
a NAMELIST table is constructed by the 
compiler and placed in this area of the 
object module. Each table consists of one 
entry for each scalar variable or array 
listed following the NAMELIST name or in 
the DISPLAY statement, and begins with four 
words of the following form: 



For each NAMELIST name 
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where the name field contains the NAMELIST 
name, right justified. For the DISPLAY 
statement, the name is DBGnn#, where nn is 
the number of the DISPLAY statement within 
the source program or subprogram. 



Table entries for scalar 
the following form: 



va: 



riables have 



T 

Byte | 
Word^-C I 1 




name field 



address field 



j type J mode | not used 
.1^. x x 



where: 

name field 

contains the name of the scalar vari- 
able, right justified. 

address field 

contains the relative address of the 
variable within the object module. 

type field 

contains zero to indicate a scalar 
variable. 



mode field 

contains the mode 
coded as follows: 



of the variable. 



2 = Logical, 1 byte 

3 = Logical, fullword 

4 = Integer, halfword 

5 = Integer, fullword 

6 = Real, double precision 

7 = Real, single precision 

8 = Complex, double precision 

9 = Complex, single precision 
A = Literal (not currently 

compiler-generated) 

NAMELIST table entries for arrays have 
the following form: 




address field 

1 |no. | 
type | mode j dimens. | length 

indica- j first dimension factor 

tor | field 

+ 

not (second dimension factor 
used | field 

_ j. ^ 


T 

not [third dimension factor 
used j field 



etc. 



etc. 



L_. J 

where: 

name field 

contains the name of the array, right 
justified. 

address field 

contains the relative address of the 
beginning of the array within the 
object module. 

mode field 

contains the mode of the array ele- 
ments, coded as for scalar variables, 
above. 

no. dimens. 

contains the number of dimensions in 
the array; this value may be 1-7. 

length field 

contains the length of the array ele- 
ment in bytes. 

indicator field 

is set to zero if the array has been 
defined to have variable dimensions; 
otherwise, it is set to nonzero. 

first dimension factor field 

contains the total size of the array 
in bytes. 

second dimension factor field 

contains the address of the second 
multiplier for the array (nl*L, where 
nl is the size of the first dimension 
in elements, and L is the number of 
bytes per element). 
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third dimension factor field 

contains the address of the third 
multiplier for the array (nl*n2*L, 
where nl is the size of the first 
dimension in elements, n2 is the size 
of the second dimension, and L is the 
number of bytes per element). 

A final entry for each NAMELIST table is 
added after the last variable or array name 
to signify the end of that particular list. 
This entry is a fullword in length and 
contains all zeros. 

LIT ERAL_CONST ANTS : This area contains a 
list of the literal constants used in the 
source module, except for those specified 
in DATA and PAUSE statements. 

FORMAT STATEMENTS: The FORMAT statements 

specified in the source module are con- 
tained in this area of the object module. 
The statements are in an encoded form in 
the order of their appearance in the source 
module. (See "Appendix D: Code Produced 
by the Compiler.") The information contains 
all specifications of the statement but not 
the word FORMAT. 

TEMPORARY STORAG E AND CONSTANTS : This area 
always begins on a double precision boun- 
dary and contains, in no specific order, 
the constants required by the object module 
code and the space for the storage of 
temporary results during computations. Not 
all of the source module constants neces- 
sarily appear in this area, since as many 
constants as possible are used as immediate 
data in the code produced. Some constants 
may appear which are not present in the 
source module, but which have been produced 
by the compiler. 



PROGRAM TEXT : 

tains statement 
these statements 
and is preceded 
branches around 
able statement 
"Statement Funct 
further explanati 
ing the code for 
the code for the 
the source module 



If the object module con- 
functions, the code for 
begins the program text 
by an instruction that 
them to the first execut- 
of the program. (See 
ions" in Appendix D for 
on of this code. ) Follow- 
the statement functions is 
executable statements of 



Object Module General Register Usage 



The object module produced by the 
FORTRAN IV (G) compiler uses the System/360 
general registers in the following way: 

Register 0: Used as an accumulator. 

Register 1: Used as an accumulator and 
to hold the beginning address of the 
argument list in branches to sub- 
programs. 



Register 2: Used as an accumulator. 

Register 3: Used as an accumulator. 

Registers 4 through 7: Contain index 
values as required for references to 
array variables, where the subscripts 
are linear functions of DO variables and 
the array does not have variable 
dimensions. 

Registers 8 and 9 : Contain index values 
as required for references to array 
variables, where the subscripts are of 
the form x+c, where x is a non De- 
controlled variable and c is a constant. 

Register 9: Contains index values as 
required for references to array 
variables where the subscripts are non- 
linear of the form I*J, where I and J 
are the variables. 

Registers 10 through 12: Contain base 
addresses loaded from the base table. 

Register 13: Contains the beginning 
address of the object module save area; 
this value is loaded at the beginning of 
program execution. Register 13 is also 
used for access to the base table, since 
the base table follows the save area in 
main storage. 

Register 14: Contains the return 
address for subprograms and holds the 
address of branch target instructions 
during the execution of branch 
instructions. 

Register 15: Contains the entry point 
address for subprograms as they are 
called by the object module. 



SOURCE MODULE LISTING 



The optional source module listing is a 
symbolic listing of the source module; it 
contains indications of errors encountered 
in the program during compilation. The 
error message resulting from an erroneous 
statement does not necessarily cause ter- 
mination of compiler processing nor the 
discarding of the statement. Recognizable 
portions of declaration statements are 
retained, and diagnosis always proceeds 
until the end of the program. 



OBJECT MODULE LISTING 

The optional object module listing uses 
the standard System/360 Operating System 
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assembler mnemonic operation codes and, 
where possible, refers to the symbolic 
variable names contained in the source 
module. Labels used in the source module 
are indicated at the appropriate places in 
the object code listing. 



STORAGE MAPS 



The optional storage map consists of six 
independent listings of storage informa- 
tion. Each listing specifies the names and 
locations of a particular class of vari- 
able. The listings are: 



• COMMON variables 



• The WORK roll exceeds the fixed storage 
space assigned to it. 

• The EXIT roll exceeds the fixed storage 
space assigned to it. 

• Any other roll, with the exception of 
the AFTER POLISH roll and the CODE 
roll, exceeds 64K bytes of storage. In 
this case, the capacity of the ADDRESS 
field of a pointer to the roll is 
exceeded and, therefore, the informa- 
tion on the roll is unaddressable. The 
AFTER POLISH and CODE rolls are 
excepted, since pointers to these rolls 
are not required. 

The compilation terminates following the 
printing of either of these messages. 



• EQUIVALENCE variables 

• Scalar variables 



COMPILER DATA STRUCTURES 



• Array variables 

• NAMELIST tables 

• FORMAT statements 

A list of the subprograms called is also 
produced. 



ERROR MESSAGES 



Errors are indicated by listing the 
statement in its original form with the 
erroneous phrases or characters undermarked 
by the dollar sign character, followed by 
comments indicating the type of the error. 
This method is described in more detail in 
"Phase 1 of the Compiler: Parse (IEYPAR)." 



Common Error Messages 



The POP language is designed to manipul- 
ate certain well-defined data structures. 

Rolls, which are the tables primarily 
used by the compiler, are automatically 
handled by the POP instructions; that is, 
when information is moved to and from 
rolls, controls indicating the status of 
the rolls are automatically updated. 

Items (variables) with fixed structures 
are used to maintain control values for 
rolls, to hold input characters being pro- 
cessed, and to record Polish notation, etc. 
These item structures are also handled 
automatically by the POP instructions. 

The arrangement of the parts of the 
compiler is significant because of the 
extensive use of relative addressing in the 
compiler. General registers are used to 
hold base addresses, to control some rolls, 
and to assist in the interpretation of the 
POP instructions. 



The message NO CORE AVAILABLE is pro- 
duced (through IEYFORT) by all phases of 
the compiler when the program being com- 
piled exhausts the main storage space 
available to the compiler. This message is 
produced only when the PRESS MEMORY routine 
cannot provide unused main storage space on 
request from the compiler. 

The message ROLL SIZE EXCEEDED is pro- 
duced (through the Invocation phase, 
IEYFORT) by all phases of the compiler when 
the size of any single roll or rolls is 
greater than permitted. The following cir- 
cumstances cause this message to be 
produced : 



ROLLS AND ROLL CONTROLS 



Most of the tables employed by the 
compiler are called rolls . This term de- 
scribes a table which at any point in time 
occupies only as much storage as is 
required for the maximum amount of informa- 
tion it has held during the present compi- 
lation (exceptions to this rule are noted 
later). Another distinctive feature of a 
roll is that it is used so that the last 
information placed on it is the first 
information retrieved , — it uses a "push 
up* logic. 
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With the exception of the WORK and EXIT 
rolls, the rolls of the compiler are main- 
tained in an area called the roll storage 

area. The rolls in this area are both 
named and numbered. While the references 
to rolls in this document and in the 
compiler comments are primarily by name, 
the names are converted to corresponding 
numbers at assembly time and the rolls are 
arranged in storage and referred to by 
number. 

If the roll storage area is considered 
to be one block of continuous storage, the 
rolls are placed in this area in ascending 
sequence by roll number; that is, roll 
begins at the base address of the roll 
storage area; rolls 1, 2, 3, etc., follow 
roll zero in sequence, with the roll whose 
number is largest terminating the roll 
storage area. 

Initially, all rolls except roll are 
empty and occupy no space; this is accomp- 
lished by having the beginning and end of 
all rolls located at the same place. (Roll 
0, the LIB roll, is a fixed-length roll 
which contains all of its data initially. ) 
When information is to be placed on a roll 
and no space is available due to a conflict 
with the next roll, rolls greater in number 
than the roll in question are moved down 
(to higher addresses) to make the space 
available. This is accomplished by physic- 
ally moving the information on the rolls a 
fixed number of storage locations and alt- 
ering the controls to indicate the change. 
Thus, roll never changes in size, loca- 
tion, or contents; all other rolls expand 
to higher addresses as required. When 
information is removed from a roll, the 
space which had been occupied by that 
information is left vacant; therefore, it 
is not necessary to move rolls for each 
addition of information. 

With the exception of the area occupied 
by roll 0, the roll storage area actually 
consists of any number of non-contiguous 
blocks of 4096 bytes of storage. The space 
required for roll is not part of one of 
these blocks™ Additional blocks of storage 
are acquired by the compiler whenever cur- 
rent roll storage is exceeded. If the 
system is unable to fulfill a request for 
roll storage, the PRESS MEMORY routine is 
entered to find roll space that is no 
longer in use. If 32 or more bytes are 
found, the compilation continues. If fewer 
than 32 bytes are found, the compilation of 
the current program is terminated, the 
message NO CORE AVAILABLE is printed, and 
space is freed. If there are multiple 
programs, the next one is compiled. 

The following paragraphs describe the 
controls and statistics maintained by the 
compiler in order to control the storage 



allocation for rolls and the functioning of 

the "push up" logic. 



ROLL ADR Table 



The ROLL ADR table is a 1000-byte table 
maintained in IEYROL. Each entry in this 
table holds the beginning address of a 
block of storage which has been assigned to 
the roll storage area. The first address 
in the table is always the beginning 
address of roll 0. The second address is 
that of the first 4K-byte block of storage 
and, therefore, the beginning address of 
roll 1. Initially, the last address 
recorded on the table is the beginning 
address of a block which holds the CODE and 
AFTER PO LISH rolls, with the CODE roll 
beginning at the first location in the 
block. 

As information is recorded on rolls 
during the operation of the compiler, addi- 
tional storage space may eventually be 
required. Whenever storage is needed for a 
roll which precedes the CODE roll, an 
additional 4K block is requested from the 
system and its address is inserted into the 
ROLL ADR table immediately before the entry 
describing the CODE roll base. This inser- 
tion requires that any entries describing 
the CODE and AFTER POLISH rolls be moved 
down in the ROLL ADR table. The informa- 
tion on all rolls following (greater in 
number than) the roll requiring the space 
is then moved down a fixed number of words. 
The roll which immediately precedes the 
CODE roll moves into the new block of 
storage. This movement of the rolls 
creates the desired space for the roll 
requiring it. The movement of rolls does 
not respect roll boundaries; that is, it is 
entirely possible that any roll or rolls 
may bridge two blocks of storage. 

When additional storage space is 
required for the AFTER POLISH roll, a block 
is requested from the system and its begin- 
ning address is added to the bottom of the 
ROLL ADR table. When the CODE roll 
requires more space, a new block is added 
in the same manner, the AFTER POLISH roll 
is moved down into the new block, and the 
vacated space is available to the CODE 
roll. 

The CODE and AFTER POLISH rolls are 
handled separately because the amount of 
information which can be expected to reside 
on them makes it impractical to move them 
frequently in order to satisfy storage 
requirements for all other rolls. The CODE 
roll is also somewhat unique in that it is 
assigned a large amount of space before it 
is used; that is, the AFTER POLISH roll 
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does not begin at the same location as does 
the CODE roll. 



BASE, BOTTOM, and TOP Tables 



In order to permit dynamic allocation as 
well as to permit the use of the "push up" 
logic, tables containing the variables 
BASE, BOTTOM, and TOP are maintained to 
record the current status of each of the 
rolls. These variables indicate addresses 
of rolls. Information stored on rolls is 
in units of fullwords; hence, these 
addresses are always multiples of four. 
The length of each of the tables is deter- 
mined by the number of rolls, and the roll 
number is an index to the appropriate word 
in each table for the roll. 

Each of the variables occupies a full- 
word and has the following configuration: 



1 1 
1 2 



1 2 
9 



r t t 1 

| | Entry number | ] 

J | into the | Displacement J 

| | ROLL ADR J (12 bits) | 

| | Table j | 

L J. A J 

The entry number points to an entry in the 
ROLL ADR table and, hence, to the beginning 
address of a block of roll storage. The 
displacement is a byte count from the 
beginning ofthe indicated storage block to 
the location to which the variable (BASE, 
BOTTOM, or TOP) refers. 

It is significant to note that the 
displacement field in these variables occu- 
pies twelve bits. If the displacement 
field is increased beyond its maximum value 
(4095), the overflow increases the entry 
number into the ROLL ADR table; this is the 
desired result, since it simply causes the 
variable to point to the next entry in the 
table and effectively indicate the next 
location in the roll storage area, the 
beginning of the next block. 

The first status variable for each roll, 
BASE, indicates the beginning address of 
that roll, minus four. The second vari- 
able, BOTTOM, indicates the address of the 
most recently entered word on the roll. 

If the roll is completely empty, its 
BOTTOM is egual to its BASE; otherwise, 
BOTTOM always exceeds BASE by a multiple of 
four. Figure 7 illustrates a roll which 
contains information. 



4 bytes 

BASE (n) j r n 

[■ -> | |< unused 

TOP (n) ) | | 

j. ^ 

\- -I 

I- -I 

h ^ 

K bytes 
I 

BOTTOM (n) >| 

L J> 

Figure 7. Roll Containing K Bytes of 
Information 



When information is to be added to a 
roll, it is stored at the address pointed 
to by BOTTOM, plus four, and BOTTOM is 
increased by four. When a word is to be 
retrieved from a roll, it is read from the 
address specified by BOTTOM, and, under 
most circumstances, BOTTOM is reduced by 
four, thus indicating that the word is no 
longer occupied by the roll. This altera- 
tion of the value of BOTTOM is termed 
pruning. If the information retrieved from 
a roll is to remain on the roll as well as 
at the destination, BOTTOM is not changed. 
This operation is indicated by the use of 
the word "keep" in the POP instructions 
that perform it. 

The current length (in bytes) of a roll 
is determined by subtracting its BASE from 
its BOTTOM. Note that this is true even 
though the entry number field appears in 
these variables, since each increase in 
entry number indicates 4096 bytes occupied 
by the roll. Thus, there is no limitation 
on the size of a roll from this source. 

For each roll, an additional status 
variable, called TOP , is maintained. TOP 
enables the program to protect a portion of 
the roll from destruction, while allowing 
the use of the roll as though it were 
empty. Protecting a roll in this way is 
called reserving the roll. The contents of 
TOP (always greater than or equal to the 
contents of BASE) indicate a false BASE for 
the roll. The area between BASE and TOP, 
when TOP does not equal BASE, cannot be 
altered or removed from the roll. Ascend- 
ing locations from TOP constitute the new, 
empty roll. 

Like BASE, TOP points to the word imme- 
diately preceding the first word into which 
information can be stored. A value is 
automatically stored in this unused word 
when the roll is reserved; the value is the 
previous value of TOP, minus the value of 

BASE and is called the rese rve mark. 

Storage of this value permits more than one 
segment of the roll to be reserved. 
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A single roll (roll n) , then, containing 
K bytes of information, (where K is always 
a multiple of four) and having no reserved 
status, has the following settings for its 
status variables : 



in the sense that they employ the same push 
up logic which is used for the other rolls; 
however, they are not numbered, and their 
controls are, therefore, not maintained in 
the tables used for the other rolls. 



BOTTOM = BASE + K 



TOP + K 



Figure 7 also illustrates this roll. If 
the same roll contains L bytes reserved and 
K additional bytes of information, the 
settings of its status variables are as 
follows : 



BOTTOM 



TOP + K 



BASE + L + K + 4 



This roll is shown in Figure 8. Note that 
the relationships given above are valid 
because of the structure of the BASE, 
BOTTOM, and TOP variables. 



4 bytes 



BASE (n) > 



TOP (n) > 



BOTTOM (n) > 



< unused 



L bytes 



< previous 

TOP-BASE 



K bytes 



Figure 8. Roll Containing L Bytes of Re- 
served Information and K Bytes 
of New Information 



Special Rolls 



The WORK roll and the EXIT roll are 
special rolls in that they are not main- 
tained in the roll storage area, but rather 
appear in IEYROL with a fixed amount of 
storage allocated to each. They are rolls 



The WORK roll is used as a temporary 
storage area during the operations of the 
compiler. Because information is moved to 
and from the roll frequently it is handled 
separately from other rolls. 

The EXIT roll warrants special treatment 
because it is used frequently in maintain- 
ing exit and entrance addresses for compil- 
er routines. 

The bottom of the WORK roll is recorded 
in general register 4, WRKADR; general 
register 5, EXTADR, holds the address of 
the bottom of the EXIT roll. These values 
are absolute addresses rather than in the 
format of the BOTTOM variable recorded for 
other rolls. 

For a more detailed explanation of the 
WORK and EXIT rolls, see Appendix B "Rolls 
Used by the Compiler. " 



Central _Itemg < _ Groups^ and Group S tats 



CENTRAL ITEMS ; The items SYMBOL 1, SYMBOL 
2, SYMBOL 3, DATA 0, DATA 1, DATA 2, DATA 3 
and DATA 4, two bytes each in length, and 
DATA 5, eight bytes in length, contain 
variable names and constants. These items 
are called central due to the nature and 
frequency of their use. They occupy 
storage in the order listed, with DATA 1 
aligned to a doubleword boundary. 

In general, SYMBOL 1, 2, and 3 hold 
variable names; DATA 1 and 2 are used to 
hold real constants, DATA 3 and 4 to hold 
integer constants, DATA 1, 2, 3 and 4 to 
hold double precision and complex con- 
stants, and DATA 1, 2, 3, 4 and 5 to hold 
double-precision complex constants. 

GROUPS : While the basic unit of informa- 
tion stored on rolls is a fullword, many 
rolls contain logically connected informa- 
tion which requires more than a singleword 
of storage. Such a collection of informa- 
tion is called a group and always occupies 
a multiple of four bytes. A word of a 
group of more than one word is sometimes 
called a rung of the group. 

Regardless of the size of the group on a 
given roll, the item BOTTOM for the roll 
always points to the last word on the roll. 
Figure 9 shows a roll with a group size of 
twelve. 
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U bytes 



1st group 



2nd group 



3rd group 



CBASE (n) 



< — < 



[TOP (n) 



Figure 9. Roll With a 
Twelve 



< — BOTTOM (n) 
Group Size of 



For some rolls, the size of the group is 
not fixed. In these cases a construct 
called a "plex" is used. The first word of 
each plex holds the number of words in the 
plex, exclusive of itself; the remainder 
holds the information needed in the group. 
(See Figure 10. ) 



4 bytes 



BASE 
TOP 



(n) 



L 



(n) 



BOTTOM (n) 
Figure 10. 



< no. words 

•| in group 
H 



group 
information 



plex 



plex 



Roll with Variable Group Size 



The assignment of roll storage does not 
respect group boundaries; thus, groups may 
be split between two blocks of roll 
storage. 



* GROUP STATS ; Since the size of the group 
varies from roll to roll, this charac- 
teristic of each roll must be tabulated in 
order to provide proper manipulation of the 
roll. In addition, the groups on a roll 
are frequently searched against the values 
held in the central items (SYMBOL 1, 2, 3, 
etc.,). Additional characteristics of the 
roll must be tabulated in order to provide 
for this function. Four variables tabu- 
lated in the group stats tables are 
required to maintain this information. 
(See Section 2 "IEYROL Module.") 



The first group stats table contains a 
1-word entry for each roll. The entry is 
divided into two halfword values. The 
first of these is the displacement in bytes 
from SYMBOL 1 for a group search; that is, 
the number of bytes to the right of the 
beginning of SYMBOL 1 from which a compara- 
tive search with the group on the roll 
should begin. This value is zero for rolls 
which contain variable names (since these 
begin in SYMBOL 1) , eight for rolls which 
contain real, double-precision, complex or 
double-precision complex constants (since 
these begin in DATA 1), and twelve for 
rolls which contain integer constants. 

The second value in the first group 
stats table is also a displacement; the 
distance in bytes from the beginning of the 
group on the roll to the byte from which a 
comparative search with the central items 
should begin. 

The second group stats table also holds 
a 1-word entry for each roll; these entries 
are also divided into two halfword values. 
The first of these is the number of conse- 
cutive bytes to be used in a comparative 
search, and refers to both the group on the 
roll and the group in the central items 
with which it is being compared. 

The second item in the second table is 
the size of the group on the roll, in 
bytes. For rolls which hold plexes, the 
value of this item is four. 

For example, the DP CONST roll , which is 
used to hold the double-precision constants 
required for the object module, has an 
8-byte group. The settings of the Group 
Stats for this roll are 8, 0, 8, and 8, 
respectively. The first 8 indicates that 
when this roll is searched in comparison 
with the central items, the search should 
begin eight bytes to the right of SYMBOL 1 
(at DATA 1). The indicates that there is 
no displacement in the group itself; that 
is, no information precedes the value to be 
compared in the group. The second 8 is the 
size of the value to be searched. The 
final 8 is the number of bytes per group on 
the roll. 
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The group stats for the ARRAY roll 
(which holds the names and dimension infor- 
mation of arrays) are 0, 0, 6, and 20. 
They indicate that the search begins at 
SYMBOL 1, that the search begins bytes to 
the right of the beginning of the group on 
the roll, that the number of bytes to be 
searched is 6, and that the group 6 size on 
the roll is 20 bytes. 



OTHER VARIABLES 



In addition to the central items, 
several other variables used in the compil- 
er perform functions which are significant 
to the understanding of the POP instruc- 
tions. These are described in the follow- 
ing paragraphs. 



Figures 11 and 12 show the two group 
stats tables containing the information on 
the DP CONST roll and the ARRAY roll 
discussed above. It should be noted that 
the information contained on these two 
tables is arranged according to roll num- 
bers. In other words, the group stats for 
roll 5 are in the sixth entry in the tables 
(starting with entry number 0). 



4 bytes 



DP CONST roll > 



ARRAY roll > 



Figure 11. First Group Stats Table 



4 bytes 



DP CONST roll > 



ARRAY roll > 



— T" 

6| 



20 



Figure 12. Second Group Stats Table 



Answer Box 



The variable ANSWER BOX, which is re- 
corded in the first byte of the first word 
of each EXIT roll group, is used to hold 
the true or false responses from POP 
instructions. The value "true" is repre- 
sented by a nonzero value in this variable, 
ancl "false" by zero. The value is checked 
by POP jump instructions. 



Multiple Precision Arithmetic 



Most of the arithmetic performed in the 
compiler is fullword arithmetic. When 
double-precision arithmetic is reguired, 
the variables MPAC 1 and MPAC 2, four bytes 
each in length, are used as a double- 
precision register. These variables are 
maintained in main storage. 



Scan Control 



Several variables are used in the 
character scanning performed by the first 
processing phase of the compiler, Parse. 
Their names, and terms associated with 
their values, are frequently used in 
describing the POP instructions. 

The variable CRRNT CHAR holds the source 
statement character which is currently 
being inspected; the variable is four bytes 
long. The position (scan arrow) of the 
current character within the input state- 
ment (its column number, where a continuous 
column count is maintained over each state- 
ment) is held in the low-order bit posi- 
tions of the fullword variable CRRNT CHAR 
CNT. 

Non-blank characters are called "active 
characters, " except when literal or IBM 
card code information is being scanned. 
The variable LAST CHAR CNT, which occupies 
one word of storage, holds the column 
number of the active character previous to 
the one in CRRNT CHAR. 
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Example : 



Column number: 1234567890 



DO 50 I = 1, 4 
A(I) = B(I)**2 
DO 50 J=l, 5 
50 C(J+1) = A(I) 



In the processing of the source module 
which contains the above statements, state- 
ment 50 is currently being parsed. The 
current character from the input buffer is 
J. The settings of the scan control 
variables are shown in Figure 13. 



(EBCDIC) 



CRRNT CHAR 



CRRNT CHAR CNT 
(scan arrow) 



LAST CHAR CNT 
Figure 13. Scan Control Variables 

Flags 



tions which refer to quotes are assembled 
with address fields which are relative to 
this location. 



Figure 14 shows some of the quotes used 
by the compiler and how they are arranged 
in storage. 



QUOTE BASE 





4 bytes 






r~~ 

| 00 


02 


N 


D 


| 00 


08 


I 


M 


1 E 


N 


S 


I 


1 o 


N 


b 


b 


j 00 


07 


M 


P 


1 L 


I 


C 


I 


1 T 


b 


b 


b 


| 00 


07 


L 





1 G 


I 


C 


A 


1 L 


b 
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b 


| « 


| 00 


06 


F 





1 R 


M 


A 


T 




« 
• 







Figure 14. Quotes Used in the Compiler 



Several flags are used in the compiler. 
These 1-word variables have two possible 
values: on, represented by nonzero, and 
off, represented by zero. The name of the 
flag indicates the significance of the "on" 
setting in all cases. 



Quotes 



Quotes are sequences of characters pre- 
ceded by a half word character count; they 
are compared with the input data to deter- 
mine a statement type during the Parse 
phase. These constants are grouped 
together at the end of phase 1. The 
location labeled QUOTE BASE is the begin- 
ning location of the first quote; instruc- 



Messaqes 



The messages used in the compiler, which 
are also grouped together at the end of 
Phase 1, are the error messages required by 
Parse for the source module listing. The 
first byte of each message holds the condi- 
tion code for the error described by the 
message. The second byte of the message is 
the number of bytes in the remainder of the 
message. The message follows this half word 
of information. 

The location labeled MESSAGE BASE is the 
beginning location of the first message; 
instructions which refer to messages are 
assembled with address fields relative to 
this location. 
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COMPILER ARRANGEMENT AND GENERAL REGISTER 
USAGE 



Figure 15 shows the arrangement of the 
compiler in main storage with the Parse 
phase shown in detail. General registers 
that hold base locations within the compil- 
er are shown pointing to the locations they 
indicate. Note that the labels CBASE and 
PROGRAM BASE 2 appear in each phase of the 
compiler; the general registers CONSTR and 
PGB2 contain the locations of those labels 
in the operating phase. 



General register 2, PGB2, holds the 
beginning address of the global jump. table, 
a table containing the addresses of compil- 
er routines which are the targets of jump 
instructions. (See Appendix A for further 
discussion of this table and the way in 
which it is used. ) The global jump table 
appears in each phase of the compiler and 
is labeled PROGRAM BASE 2; thus, the value 
held in general register 2 is changed at 
the beginning of each phase of the 
compiler. 



Register ] Label 



| Contents 



Invocation Phase 



POPPGB-- 



ROLLBR > 



CONSTR > 



PGB2- 



POP TABLE 
POP SETUP 



ROLL BASE 



CBASE 



PROGRAM BASE 2 



QUOTE BASE 
MESSAGE BASE 



POP Jump Table 



POP Machine 


Language Subrouti 


nes 




Data 


for POP Subroutines 






Roll 


Statistics (Bases, Tops, 


Bottoms ) 


Group Stats 


(Displacements, Group 


Sizes) 


WORK 


Roll 








EXIT 


Roll 








ROLL 


ADR Table 







Roll Storage 
Roll Storage* 



Parse Data Items 



Parse Routines 

Parse Global Jump Table 



Parse Routines containing assembler 
language branch targets 



Quotes 
Messages 



PHASE 2: Allocate 


PHASE 3: Unify 


PHASE 4: Gen 


PHASE 5: Exit 


♦Roll storage is allocated in 4K-byte blocks, beginning from the higher end 
of storage contiguous with Parse. Additional blocks are obtained, as 
needed, from preceding (lower) 4K-byte blocks of storage. 



low 
storage 



high 
storage 



Figure 15. Compiler Arrangement with Registers 
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Compiler routines which contain assem- 
bler language instructions and are either 
branched to by other assembler language 
instructions or which themselves perform 
internal branches, follow the global jump 
table. General register 2 is used as a 
base register for references to both the 
global jump table and these routines. 
Figure 15 shows this register in Parse. 

General register 3, called POP ADR in the 
compiler code, is used in the sequencing of 
the POP operations. It holds the address 
of the current POP, and is incremented by 2 
as each POP is interpreted. 

General register 4, called WRKADR, holds 
the address of the current bottom of the 
WORK roll. 

General register 5, called EXTADR, holds 
the address of the current bottom of the 
EXIT roll. 

General register 6, called POPXIT, holds 
the return location for POP subroutines. 
When POPs are being interpreted by POP 
SETUP, the return is to POP SETUP; when 
machine language instructions branch to the 
POPs, it is to the next instruction. 

General register 7, called ADDR, holds 
the address portion of the current POP 
instruction (eight bits); it is also used 
in the decoding of the operation code 
portion of POP instructions. 

General register 8, called POPPGB, holds 
the beginning address of the machine lan- 
guage code for the POP instructions and the 
POP jump table. Figure 15 shows this 
register, which is used as a base for 
references, to these areas. 

General register 9, called CONSTR, holds 
the beginning address of the data referred 
to by the compiler routines. This area 
precedes the routines themselves, and is 
labeled CBASE, as indicated in Figure 15. 
This register is, therefore, used as a base 
register for references to data as well as 
for references to the routines in the 
compiler; its value is changed at the 
beginning of each phase. 

General register 10, ROLLBR, holds the 
beginning address of the roll area ; that 
is, the beginning address of the base table 
(see Figure 15). The value in this 
register remains constant throughout the 
operation of the compiler. 

General register 11, RETURN, holds 
return addresses for the POP subroutines. 

The remaining general registers are used 
temporarily for various purposes in the 
compiler. 



POINTERS 



Information defining a source module 
variable (its name, dimensions, etc. ) is 
recorded by the compiler when the name of 
the variable appears in an Explicit speci- 
fication or DIMENSION statement. For 
variables which are not explicitly defined, 
this information is recorded when the first 
use of the variable is encountered. All 
constants are recorded when they are first 
used in the source module. 

All references to a given variable or 
constant are indicated by a pointer to the 
location at which the information defining 
that variable or constant is stored. The 
use of the pointer eliminates redundancy 
and saves compiler space. 



The pointer is 
following format: 



a 1-word value in the 



1 byte 



1 byte 



T T . 

TAG | OPERATOR | 

.. X X. 



2 bytes 
ADDRESS 



where : 



TAG 



is a 1-byte item whose value is repre- 
sented in two parts: MODE, occupying 
the upper four bits, indicates whether 
the variable or constant is integer,, 
real, complex or logical; SIZE, indi- 
cated in the lower four bits, speci- 
fies the length of the variable or 
constant (in bytes) minus one. (See 
Figure 15.1). 



r t 

|Value | MODE 



j Value j SIZE 



1 o 


j Integer 







| 1 byte 




1 1 


| Real 




1 


| 2 bytes 




1 2 


| Complex 




3 


| 4 bytes 




1 3 


j Logical 




7 


| 8 bytes 




1 4 


| Literal/ 
j Hexadecimal 




F 


| 16 bytes 

















• Figure 15.1 TAG Field MODE and SIZE Values 

OPERATOR 

is a 1-byte item which contains the 
roll number of the roll on which the 
group defining the constant or vari- 
able is stored. 

ADDRESS 

is a 2-byte item which holds the 
relative address (in bytes) of the 
group which contains the information 
for the constant or variable; the 
address is relative to the TOP of the 
roll. 
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The pointer contains all the information 
required to determine an absolute location 
in the roll storage area. The roll number 
(from the OPERATOR field) is first used as 
an index into the TOP table. The ADDRESS 
field of the pointer is then added to the 
TOP, and the result is handled as follows: 



For the purposes of object code genera- 
tion, the mode and size of the constant or 
variable is available to influence the type 
of operations which can be employed, e. g. , 



integer or 
doubleword. 



floating, 



fullword. or 



1. Its entry number field (bits 12 
through 19) is used as an index into 
the ROLL ADR table. 



DRIVERS 



2. Its displacement field (bits 20 
through 31) is added to the base 
address found in the ROLL ADR table. 
The result of step 2 is the address 
indicated by the pointer. 



Example ; Using a pointer whose OPERATOR 
field contains the value 2 and whose 
ADDRESS field contains the value 4, and the 
following tables : 



In the generation of Polish notation 
from the source language statements, 
"drivers" are also used. These "drivers" 
are values that are one word long and have 
the same format as the pointer. The two 
types of drivers used by the compiler are 
discussed in the following paragraphs. 



TOP 



r t t T 

I I I I 

I + + ., 



1 I 

2 I 



H- 



| 2 | 20 | 
J. JL J 



ROLL ADR 

r 1 

I I 
,. H 

1 I I 

2 | 1000 | 
y H 



the location 1024 is determined. Note that 
for larger values in the pointer and in 
TOP, the entry number field of TOP can be 
modified by the addition of ADDRESS. In 
this case the result of the addition holds 
2 and 24 in the entry number and displace- 
ment fields, respectively. 



Since relative addresses are recorded in 
pointers, it is not necessary to alter a 
pointer when the roll pointed to is moved. 
Note also that the relative address in the 
pointer may exceed 4096 bytes with no 
complication of the addressing scheme. The 
only limitation on the size of a roll comes 
about because of the size of the ADDRESS 
field of the pointer: 16 bits permit 
values less than 64K bytes to be 
represented. 



Operation Drivers 



One type of driver is the operation 
driver , which indicates arithmetic or log- 
ical operations to be performed. The 
fields of the driver are: 



TAG 



is a 1-byte item whose value is repre- 
sented in two parts: MODE, occupying 
the upper four bits, indicates the 
mode of the operation, e.g., integer, 
floating-point, complex or logical; 
SIZE, indicated in the lower four 
bits, specifies the length of the 
result of the operation (in bytes) 
minus one. 



OPERATOR 

is a 1-byte item 
which indicates 
performed, e.g., 
tion, etc. The 
are larger than 



containing a value 

the operation to be 

addition, subtrac- 

values for OPERATOR 

the number of any 



roll, and hence, also serve to distin- 
guish a driver from a pointer. 



ADDRESS 

is a 2-byte item containing a value 
which indicates the "forcing strength" 
of the operation specified by the 
driver; its values range from zero to 
ten. 



The forcing strengths associated with 
the operation drivers are given in Table 1. 
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Table 1. Internal Configuration of Opera- 
tion Drivers 













j ADDRESS 
J (Forcing 


Driver 




J TAG 


L | OPERATOR ] Strength) 
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-+- 
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| 00 00 






— +— - 
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3F 
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^-The MODE and SIZE settings are placed in 

the driver when it is used. 
2 Indicates a function reference. 
3 Used to designate the beginning of an 

expression. 
4 Means "end of expression" and is used 

for that purpose. 



Control Drivers 



The other type of driver used in the 
generation of Polish notation is called the 
control^driver. It is used to indicate the 
type of the statement for which code is to 
be written. The control driver may also 
designate some other control function such 
as an I/O list, an array reference, or an 
error linkage. 



The fields of the control driver differ 
from those of the operation driver in that 
zero is contained in the TAG field, 255 in 
the OPERATOR field (the distinguishing mark 
for control drivers) , and a unique value in 
the ADDRESS field. The value in the 
ADDRESS field is an entry number into a 
table of branches to routines that process 
each statement type or control function; it 
is used in this way during the operations 
of Gen. The formats of the operation 
drivers and control drivers are given in 
Appendix E. 



Table 1 lists the operation drivers and 
the values contained in each field. The 
control drivers are given in Table 2. The 
ADDRESS field is the only field given 
because the TAG and OPERATOR fields are 
constant. All values are represented in 
hexadecimal. 



Section 1: Introduction to the Compiler 31 



Form Y28-6638-1 

Paqe Revised 11/15/68 by TNL Y28-6826 



Table 2. Internal Configuration of Con- 
trol Drivers (Part 1 of 2) 



Table 2. Internal Configuration of Con- 
trol Drivers (Part 2 of 2) 



J Driver | ADDRESS j 

L _ .__.__ L_ _. J 


r r — — 1 

j AFDS j 8 j 
L _ L _ _J 


r — T 1 

| ARRAY | 23C | 
L _ _ _ _ _J. _ J 


r T 1 
| ASSIGN | 20 ] 
|. + 4. 

| ASSIGNED GOTO | 1C | 
L _L _. J 


r — — t — 1 

| ASSIGNMENT | 4 J 
J. X— 4. 

| AT | 68 j 

L _ ._ L J 


r — — r 1 

1 BSREF | 34 | 
|. ._ + 4, 

| CALL j 2C J 
L_ _ L _J 


r — r — " 

| CGOTO | 18 ] 
,. _ + 4, 

j CONTINUE j 28 | 

L _ _ _ _ ._ L_ _ J 


r T — 1 
| DATA | 3C J 

J. _ + — . ^ 

j DEFINE FILE j 44 j 

J. 4- 4, 

j DIRECT IO j 200 j 
j. + 4. 

| DISPLAY ID j 74 j 


J™ _ _ — X ^ 

J DO ] 10 ] 
J. X— 4. 

j DUMMY j 68 j 

L _ _ . _ L _J 


r — r — 1 

j END | C ] 
j. 4. 4, 

| END= | 20C J 
L_ L J 


| ERROR LINK 1 | 54 ] 
|. 4- 4. 

1 ERROR LINK 2 | 58 | 
j. + . ^ 

| ERROR LINK 3 j 5C j 



| Driver | ADDRESS 

L _ _ _ L 


r r — 

| ERR= j 210 

L _ _ L 


r r 

| EXP and ARG | 4 80 
1 , 4. _^._ 


r — t 

] FIND | 4C 

l _ L_ _ _ 


r — r 

| FORMAT | 208 

L _ L_ «. 


r r 

J FORMAT STA | 30 
L _ _ L _ _ 


r r 

| GOTO | 14 
L_ _ _ 4. _ 


r — T 

| IF | 24 

L _ L _ 


r r 

| IOL DO CLOSE | 218 

1 X- — 


r — — t 

] IOL DO DATA | 21C 

L _ X - — 


| IO LIST | 214 

L _ _ L_ 


r — — r 

j LOGICAL IF | 60 

L _ L 


r — — — — r 

| NAMELIST j 204 

L _ X- 


| PAUSE | 38 

I X- 

| READ WRITE | 48 

L_ _ L_ 


r — r 

J RETURN | 50 

1 L _ . 


| STANDARD PRINT UNIT | 234 

L L_. 


r — — r^^ — 

J STANDARD PUNCH UNIT | 238 

L _ _ _ _ 4. _ 


r T — 

| STANDARD READ UNIT | 230 

J. 4 

\ STOP 1 64 

L L_ 


r — — r — 

| SUBPROGRAM | 40 

J. X 

j TRACE OFF | 70 

I X- 

| TRACE ON | 6C 
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SECTION 2: COMPILER OPERATION 



This section describes in detail the 
Invocation phase and the five processing 
phases of the compiler and their operation. 
The IEYROL module is also described. 



INVOCATION PHASE (IEYFORT) 



The Invocation phase is the compiler 
control phase and is the first and last 
phase of the compiler. (The logic of the 
phase is illustrated in Chart 00.) If the 
compiler is invoked in an EXEC statement, 
control is received from the operating 
system control program. However, control 
may be received from other programs through 
use of one of the system macro instruc- 
tions: CALL,, LINK, or ATTACH. 

IEYFORT performs compiler initializa- 
tion, expansion of roll storage assignment, 
input/output request processing, and com- 
piler termination. The following para- 
graphs describe these operations in greater 
detail. 



IEYFORT, CHART 00 



IEYFORT is the basic control routine of 
the Invocation phase. Its operation is 
invoked by the operating system or by 
another program through either the CALL, 
LINK, or ATTACH macro instructions. The 
execution of IEYFORT includes scanning the 
specified compiler options, setting the 
ddnames for designated data sets, initia- 
lizing heading information, and acquiring 
time and date information from the system. 

IEYFORT sets pointers and indicators to 
the options,, data sets, and heading infor- 
mation specified for use by the compiler. 
The options are given in 40 or fewer 
characters, and are preceded in storage by 
a binary count of the option information. 
This character count immediately precedes 
the first location which contains the 
option data. The options themselves are 
represented in EBCDIC. 

On entry to IEYFORT, general register 1 
contains the address of a group of three or 
fewer pointers. Pointer 1 of the group 
holds the beginning address of an area in 
storage that contains the execute options 
specified by the programmer (set in the 
OPTSCAN routine). 



Pointer 2 contains the address of the 
list of DD names to be used by the compiler 
(set in the DDNAMES routine). 

Pointer 3 contains the address of the 
heading information. Heading data may 
designate such information as the continua- 
tion of pages, and the titles of pages. 

If the FORTRAN compiler is invoked by 
the control program (i.e., called by the 
system), pointers 2 and 3 are not used. 
However, if the compiler is invoked by some 
other source, all pointers may be used. 
The latter condition is determined through 
an interrogation of the high order bit of a 
pointer. If this bit is set, the remaining 
pointers are nonexistent. Nevertheless, 
pointers 1 and 3 may exist while pointer 2 
is nonexistent; in this case, pointer 2 
contains all zeros. 

During the operation of IEYFORT, the 
SYSIN and SYSPRINT data sets are always 
opened through use of the OPEN macro 
instruction. The SYSLIN and SYSPUNCH data 
sets are also opened depending upon the 
specification of the LOAD and DECK options. 
The block sizes of these data sets are set 
to 80, 120, 80 and 80, respectively. These 
data sets may be blocked or unblocked 
(RECFM=F, FB, or FBA) depending upon the 
DCB specification in the DD statements. 
IEYFORT concludes the compiler initializa- 
tion process with a branch to the first 
processing phase of the compiler, Parse 
(IEYPAR). 

From this point in the operation of the 
compiler, each processing phase calls the 
next phase to be executed. However, the 
Invocation phase is re-entered periodically 
when the compiler performs such input/ 
output operations as printing, punching, or 
reading. The last entry to the Invocation 
phase is at the completion of the compiler 
operation. 



IEYPRNT, Chart 00A4 



IEYPRNT is the routine that is called by 
the compiler when any request for printing 
is issued. The routine sets and checks the 
print controls such as setting the line 
count, advancing the line count, checking 
the lines used, and controlling the spacing 
before and after the printing of each line. 
These control items are set, checked, and 
inserted into the SYSPRINT control format, 
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and the parameter information and print 
addresses are initialized for SYSPRINT. 



PRNTMSG, Chart 03A1 



If there is an error during the printing 
operation, EREXITPR sets the error code 
resulting from the print error. Any error 
occurring during an input/output operation 
results in a termination of compiler 
operation. 



PRNT HEA D, Chart 01 A2 



PRNTMSG is called when any type of 
message is to be printed. The print area 
is initialized with blanks and the origin 
and displacement controls are set. The 
message is printed in two segments; each 
segment is inserted into the print area 
after the complete message length is deter- 
mined and the length and origin of each 
segment has been calculated. Once the 
entire message has been inserted, the car- 
riage control for printing is set and 
control is transferred to the system to 
print the message. 



PRNTHEAD is called by IEYPRNT after it 
has been determined that the next print 
operation begins on a new page. The pro- 
gram name and the new page number placed 
into the heading format and any parameter 
information and origin addresses are 
inserted into the SYSPRINT format. If an 
optional heading is specified by the pro- 
grammer, it is inserted into the print line 
format. A PUT macro instruction is issued 
to print the designated line, and all print 
controls are advanced for the next print 
operation. 



IEYREAD, Chart 01A4 



IEYREAD is called by the compiler at the 
time that a read operation is indicated. 
It reads input in card format from SYSIN 
using the GET macro instruction. IEYREAD 
can handle concatenated data sets. 

If an error occurs during the read 
operation, the routine EREXITIN is called. 
This routine checks the error code 
generated and prints the appropriate error 
message. 



IEYPC H, Ch art 2A3 



When a punch output operation is 
requested by the compiler, control is tran- 
sferred to the IEYPCH routine. The LOAD 
and DECK options are checked to determine 
what output to perform. 

Any errors- detected during output result 
in a transfer of control to the EREXITPC, 
for SYSPUNCH, or EREXITLN, for SYSLIN, 
routine. The routine sets a flag so that 
no further output is placed on the affected 
file. 



IEYMOR, Chart 01D1 



IEYMOR is called when additional roll 
storage area is needed for compiler opera- 
tion. This routine may be entered from any 
of the processing phases of the compiler. 
The GETMAIN macro instruction is issued by 
this routine and transfers control to the 
system for the allocation of one UK-byte 
block of contiguous storage. The system 
returns to IEYMOR with the absolute address 
of the beginning of the storage block in 
general register 1. Once the requested 
storage space has been obtained, IEYMOR 
returns to the invoking phase. If the 
system is unable to allocate the requested 
storage, inactive modules of the compiler 
are deleted. Those preceding the currently 
active module are deleted first; then those 
following it are deleted, if necessary. 
Should additional space be needed after all 
inactive modules are deleted, compiler 
operations are terminated. 

When IEYMOR returns to the invoking 
phase with the absolute address of the 
storage block in general register 1, the 
invoking phase then stores the contents of 
register 1 in the ROLL ADR table. 

The ROLL ADR table is used by the 
compiler to record the addresses of the 
different blocks of storage that have been 
allocated for additional roll capacity. 
The contents of the table are later used in 
IEYRETN for releasing of the same storage 
blocks. 



IEYNOCR 



IEYNOCR is called by PRESS MEMORY 
(IEYPAR) whenever it is unable to obtain at 
least 32 bytes of unused storage. IEYNOCR 
prints the message NO CORE AVAILABLE, 
branches to a subroutine that checks to see 
if there are any source language cards to 
be disregarded, and then exits to IEYRETN. 
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IEYRETN, Chart 3A2 



OPTSCAN, Chart AA 



The compiler termination routine 
(IEYRETN) is invoked by Exit (IEYEXT) or by 
one of the input/output routines after the 
detection of an error. 



The routine first obtains the error 
condition code returned by the compiler and 
tests this value against any previous value 
received during the compilation. The com- 
piler communications area for the error 
code is set to the highest code received 
and a program name of "Main" is set in the 
event of multiple compilations. The rou- 
tine then checks general register 1 for the 
address of the ROLL ADR table. Each entry 
of the ROLL ADR table indicates the begin- 
ning of a UK-byte block of roll storage 
that must be released. A FREEMAIN macro 
instruction is issued for each block of 
storage indicated in the table until a zero 
entry is encountered (this denotes the end 
of the ROLL ADR table). 



OPTSCAN determines the existence of the 
parameters specifying the compiler options. 
If options are specified, the validity of 
each option is checked against the parame- 
ter table and the pointer to these options 
is set once the options have been vali- 
dated. The program name is noted depending 
upon the presence or absence of the NAME 
parameter. However, if these options are 
not specified, the first pointer of the 
group of three supplied to the compiler by 
the system contains zero. 



DDNAMES, Chart AB 



DDNAMES scans the entries made for the 
names of the data sets to be used by the 
compiler. The entries corresponding to 
SYSN, SYSIN, SYSPRINT, and SYSPUNCH are 
checked; if an alternate name has been 
provided, it is inserted into the DCB area. 



The presence of more than one source 
module in the input stream is checked by 
interrogating the end-of-file indication 
and the first card following this notation. 
If another compilation is indicated, the 
line, card, and page count control items 
are reinitialized and all save registers 
used by the Invocation phase are restored. 
The number of diagnostic messages generated 
for the compilation is added to a total 
count for the multiple compilation and the 
diagnostic error count is reset to zero. 
The first processing phase of the compiler, 
Parse (IEYPAR), is called and the operation 
of the compiler proceeds as described in 
the previous paragraphs and those pertain- 
ing to the processing phases. 



HEADOPT, Chart AC 



HEADOPT determines the existence of the 
optional heading information. If such 
information exists, its length is deter- 
mined, it is centered for printing, and 
then is inserted into the Printmsg Table, 
with pointer 3 being set. 



TIMEDAT, Chart AD 



TIMEDAT serves only to obtain the time 
and date information from the system and to 
insert the data into the heading line. 



If another compilation is not indicated, 
a check is made to determine if there was a 
multiple compilation. If there was a mul- 
tiple compilation, an indication of the 
total number of diagnostic messages 
generated for all of the compilations is 
printed. Also, routine IEYFINAL closes the 
data set files used by the compiler (by 
means of the CLOSE macro instruction). The 
terminal error condition code is obtained 
and set for the return to the invoking 
program, and all saved registers are 
restored before the return is made. 



Routine IEYFINAL also receives control 
from other compiler routines when an input/ 
output error is detected. 



OUTPUT FROM IEYFORT 



The following paragraphs describe the 
error messages produced during the opera- 
tion of the Invocation phase. These mes- 
sages denote the progress of the compila- 
tion, and denote the condition which 
results in the termination of the compiler. 



IEY028I NO CORE AVAILABLE 
TERMINATED 



- COMPILATION 



The system was unable to provide a 
UK-byte block of additional roll 
storage and PRESS MEMORY was 
entered. It, too, was unable to 
obtain space. The condition code 
is 16. 
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IEY029I DECK OUTPUT DELETED 

The DECK option has been specified, 
and an error occurred during the 
process of punching the designated 
output. No error condition code is 
generated for this error. 



IEY0 30I LINK EDIT OUTPUT DELETED 



The LOAD option has been specified, 
and an error occurred during the 
process of generating the load 
module. The condition code is 16. 



IEY0 31I ROLL SIZE EXCEEDED 



This message is produced when: (1) 
The WORK or EXIT roll has exceeded 
the storage capacity assigned; or 
(2) Another roll used by the com- 
piler has exceeded 64K bytes of 
storage, thus making it unaddress- 
able. (This condition applies to 
all rolls except the AFTER POLISH 
and CODE rolls. ) The condition 
code is 16. 

IEY0 32I NULL PROGRAM 

This message is produced when an 
end-of-data set is encountered on 
the input data set prior to any 
valid source statement. The condi- 
tion code is 0. 



IEY034I I/O ERROR [COMPILATION 

XXX • • • XXX 



TERMINATED] 



This message is produced when an 
input/output error is detected dur- 
ing compilation. If the error 
occurred on SYSPUNCH, compilation 
is continued and the COMPILATION 
TERMINATED portion of the message 
is not printed. The condition code 
is 8. If the error occurred on 
SYSIN, SYSPRINT, or SYSLIN, compi- 
lation is terminated. The condi- 
tion code is 16. xxx...xxx is the 
character string formatted by the 
SYNADAF macro instruction. For an 
interpretation of this information, 
see the publication IBM System/360 
Operating System; Supervi sor and 
Data Management Macro- Ins t ructio ns , 
Form C28-6647. 

IEY035I UNABLE TO OPEN ddname 

This message is produced when the 
required ddname data definition 
card is missing or the ddname is 
misspelled. 



Multiple Compilations 



The following message appears at 
the end of a multiple compilation 
to indicate the total number of 
errors that occurred. The message 
will not appear if the compiler is 
terminated because of an error con- 
dition or if the compilation con- 
sisted of only one main or one 
subprogram. 



♦STATISTICS* 
STEP 



NO DIAGNOSTICS THIS 



or 



♦STATISTICS* 
STEP 



nnn DIAGNOSTICS THIS 



where : 

nnn is the total number of diagnostic 
messages for the multiple compilation 
expressed as a decimal integer. 



PHASE 1 OF THE COMPILER: PARSE (IEYPAR) 



The first processing phase of the 
FORTRAN IV (G) compiler, Parse, accepts 
FORTRAN statements in card format as input 
and translates them. Specification state- 
ments are translated to entries on rolls 
which define the symbols of the program. 
Active statements are translated to Polish 
notation. The Polish notation and roll 
entries produced by Parse are its primary 
output. In addition, Parse writes out all 
erroneous statements and the associated 
error messages. Parse produces a full 
source module listing when the SOURCE 
option is specified. 

The following description of Parse con- 
sists of two parts. The first part, "Flow 
of Phase 1," describes the overall logic of 
the phase by means of both narrative and 
flowcharts. 

The second part, "Output from Phase 1, " 
describes the Polish notation produced by 
Parse. The construction of this output, 
from which subsequent phases produce object 
code, is the primary function performed by 
Parse. See Appendix C for the Polish 
format for each statement type. 

The source listing format and the error 
messages produced by Parse are also 
discussed. 

The rolls manipulated by Parse are 
listed in Table 3 and are mentioned in the 
following description of the phase. At the 
first mention of a roll, its nature is 
briefly described. See Appendix B for a 
complete description of a format of a roll. 
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Table 3. Rolls Used by Parse 



|Roll 




Roll 




|NO. 


Roll Name 


No. 


Roll Name | 


1 ° 


Lib 


28 


Local Sprog j 


| 1 


Source 


29 


Explicit j 


1 2 


Ind Var 


30 


Call Lbl | 


1 1 


Polish 


31 


Namelist Names j 


1 5 


Literal Const 


32 


Namelist Items j 


1 6 


Hex Const 


33 


Array Dimension | 


1 7 


Global 


35 


Temp Data Name j 


1 8 


Fx Const 


36 


Temp Polish j 


1 9 


Fl Const 


37 


Equivalence j 


| 10 


Dp Const 


38 


Used Lib j 


1 11 


Complex Const 




Function j 


1 12 


Dp Complex 


39 


Common Data j 




Const 


40 


Common Name j 


1 13 


Temp Name 


41 


Implicit | 


1 1*» 


Temp 


42 


Equivalence J 


1 l u 


Error Temp 




Offset j 


1 15 


DO Loops Open 


43 


Lbl | 


1 16 


Error Message 


44 


Scalar | 


1 17 


Error Char 


45 


Data Var j 


| 18 


Init 


46 


Literal Temp j 


| 19 


Xtend Lbl 


53 


Format j 


| 20 


Xtend Target 


54 


Script j 




Lbl 


55 


Loop Data J 


| 22 


Array 


56 


Program Script j 


| 2U 


Entry Names 


59 


AT j 


| 25 


Global Dmy 


60 


Subchk | 


| 26 


Error 


63 


After Polish j 


| 27 


Local Dmy 
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FLOW OF PHASE 1, CHART 04 



START COMPILER initializes the operation 
of Parse, setting flags from the user 
options, reading and writing out (on 
option) any initial comment cards in the 
source module, and leaving the first card 
of the first statement in an input area. 
This routine concludes with the transfer of 
control to STATEMENT PROCESS. 



STATEMENT PROCESS (GO 6 31) controls the 
operation of Parse. The first routine 
called by STATEMENT PROCESS is PRINT AND 
READ SOURCE. On return from that routine, 
the previous source statement and its error 
messages have been written out (as defined 
by user options), and the statement to be 
processed (including any comment cards) 
plus the first card of the next statement 
will be on the SOUR CE roll. (This roll 
holds the source statements, one character 
per byte. ) STATEMENT PROCESS then calls 
STA INIT to initialize for the processing 
of the statement and LBL FIELD XLATE to 
process the label field of the statement. 

On return from LBL FIELD XLATE, if an 
error has been detected in the label field 
or in column 6, STATEMENT PROCESS restarts. 
Otherwise, STA XLATE and STA FINAL are 
called to complete the translation of the 
source statement. On return from STA 
FINAL, if the last statement of the source 
module has not been scanned, STATEMENT 
PROCESS restarts. 



After the Polish notation for the STOP 
or RETURN has been constructed on the 
POLISH roll, the Polish notation for the 
END statement is then constructed. 

Parse keeps track of all inner DO loops 
that may possibly have an extended range. 
Parse tags the LABEL roll entries for those 
labels within the DO loops that are poss- 
ible re-entry points from an extended 
range. These tags indicate the points at 
which general registers 4 through 7 must be 
restored. The appropriate LOOP DATA roll 
groups are also tagged to indicate to the 
Gen phase which of the inner DO loops may 
possibly have an extended range. Gen then 
produces object code to save registers 4 
through 7. 

After processing the last statement of 
the source module, a pointer to the LOOP 
DAT A roll is placed on the SCRIPT roll, the 

IND VAR roll is released, and, if the 

source module was a main program, the 
routine REGISTER IBCOM (G0707) is called to 
record IBCOM as a required subprogram. For 
all source modules, the information 
required for Allocate is then moved to the 
appropriate area, and the Parse phase is 
terminated. 



PRINT and READ SOURCE, Chart BA 



PRINT AND READ SOURCE (G0837) serves 
three functions: 



When the last card of a source module 
has been scanned, STATEMENT PROCESS deter- 
mines whether it was an END card; if not, 
it writes a message. The routine then sets 
a flag to indicate that no further card 
images should be read, and calls PRINT AND 
READ SOURCE to write out the last statement 
for the source listing (depending on wheth- 
er the SOURCE option was specified or was 
indicated as the default condition at sys- 
tem generation time). 

When no END card appears, two tests are 
made: (1) If the last statement was an 
Arithmetic IF statement, the Polish nota- 
tion must be moved to the AFTE R, POLISH 

r oll ; (2) If the last statement was~of a 
type which does not continue in sequence to 
the next statement (e.g., GO TO, RETURN), 
no code is required to terminate the object 
module, and the Polish notation for an END 
statement is constructed on the POLISH 
roll . If the NEXT STA LBL FLAG is off, 
indicating that the last statement was not 
of this type, the Polish notation for a 
STOP or RETURN statement is constructed on 
the POLISH roll, depending on whether the 
source module is a main program or a 
subprogram. 



1. It writes out the previous source 
statement and its error messages as 
indicated by user options. 

2. It reads the new source statement to 
be processed, including any comment 
cards, as well as the first card of 
the statement following the one to be 
processed. 

3. It performs an initial classification 
of the statement to be processed. 

The statement to be written out is found 
on the SOURCE roll. One line at a time is 
removed from this roll and placed in a 
120~byte output area from which it is 
written out. The new statement being read 
into the SOURCE roll is placed in an 
80-byte input area and replaces the state- 
ment being written out as space on the 
SOURCE roll becomes available. Any blank 
card images in the source module are elimi- 
nated before they reach the SOURCE roll. 
Comment cards are placed on the SOURCE roll 
exactly as they appear in the source 
module. The last card image placed on the 
SOURCE roll is the first card of the source 
statement following tne one about to be 
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processed; therefore, any comment cards 
that appear between two statements are 
processed with the statement which precedes 
them. When an END card has been read, no 
further reading is performed. 

The initial classification of the state- 
ment that occurs during the operation of 
this routine determines, at most, two 
characteristics about the statement to be 
processed: (1) If it is a statement of the 
assignment type, i.e., either an arithmetic 
or logical assignment statement or a state- 
ment function, or (2) If it is a Logical IF 
statement, whether the statement n S" (the 
consequence of the Logical IF) is an 
assignment statement. Two flags are set to 
indicate the results of this classification 
for later routines. 



ing and returns to 
(through SYNTAX FAIL) 
set to false. 



STATEMENT PROCESS 
with the ANSWER BOX 



Pointers to all labels within DO loops 
are placed on the XTEND_LBL_rollj_ Labels 
that are jump targets (other than jumps 
within the DO loop) are tagged to indicate 
to Gen at which points to restore general 
registers 4 through 7. 

If the statement being processed is the 
statement following an Arithmetic IF state- 
ment, LBL FIELD XLATE moves the Polish 
notation for the Arithmetic IF statement to 
the AFTER POLISH roll after adding a point- 
er to the label of the present statement to 
it. 



At the conclusion of this routine, all 
of the previous source statements and their 
errors have been removed from the SOURCE 
roll and are written out. In addition, all 
of the statements to be processed (up to 
and including the first card of the state- 
ment following it) have been placed on the 
SOURCE roll. 



STA INIT. Chart BB 



STA INIT (G0632) initializes for the 
Parse processing of a source statement. It 
sets the CRRNT CHAR CNT and the LAST CHAR 
CNT to 1, and places the character from 
column 1 of the source card in the variable 
CRRNT CHAR. 

It then determines, from a count made 
during input of the statement, the number 
of card images in the statement; multiply- 
ing this value by 80, STA INIT sets up a 
variable (LAST SOURCE CHAR) to indicate the 
character number of the last character in 
the statement. 



The routine finally 
NAME roll and sets 



releases the TEMP 
several flags and 



variables to constant initial values before 
returning to STATEMENT PROCESS. 



LBL FIELD XLATE, Chart BC 



STA XLATE, Chart BD 



Under the control of STA XLATE (GO 636) 
the source module statement on the SOURCE 
roll is processed and the Polish notation 
for that statement is produced on the 
POLISH roll, which holds Polish notation 
for source statements, one statement at a 
time. Errors occurring in the statement 
are recorded for writing on the source 
module listing. 



The addresses of the bottoms of the WORK 
and EXIT rolls are saved. Then, if the 
statement is of the assignment type (the 
first flag set by PRINT AND READ SOURCE is 
on), STA XLATE ensures that a BLOCK DATA 
subprogram is not being compiled and falls 
through to ASSIGNMENT STA XLATE (G0637) . 
If a BLOCK DATA subprogram is being com- 
piled, STA XLATE returns after recording an 
invalid statement error message. If the 
statement is not of the assignment type, a 
branch is made to LITERAL TEST (G0640), 
which determines the nature of the state- 
ment from its first word(s), and branches 
to the appropriate routine for processing 
the statement. The names of the statement 
processing routines indicate their func- 
tions; for example, DO statements are 
translated by DO STA XLATE, while Computed 
GO TO statements are translated by CGOTO 
STA XLATE. 



LBL FIELD XLATE (G0635) first saves the 
address of the current WORK and EXIT roll 
bottoms. It then inspects the first six 
columns of the first card of a statement. 
It determines whether a label appears, and 
records the label if it does. If any 
errors are detected in the label field or 
in column 6 of the source card, LBL FIELD 
XLATE records these errors for later print- 



With the exception of LOGICAL IF STA 
XLATE, the statement processing routines 
terminate their operation through STA XLATE 
EXIT. LOGICAL IF STA XLATE moves the 
second flag set by PRINT AND READ SOURCE 
(which indicates whether the statement "S" 
is an assignment statement) into the first 
flag, and calls STA XLATE as a subroutine 
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for the translation of the statement "S. " severity level which warrants discarding 
When all of the Logical IF statement, the statement. If such errors exist, and 
including "S," has been translated, LOGICAL the statement is active (as opposed to a 
IF STA XLATE also terminates through STA specification statement), the Polish nota- 
XLATE EXIT. tion produced for the statement is removed 

and replaced by an invalid statement driver 

before a return is made to STATEMENT 

PROCESS. Otherwise, the Polish notation is 

STA XLATE EXIT (G0723) determines left intact, and a return is made to 

whether errors in the statement are of a STATEMENT PROCESS. 
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STA_FIN^ L _ChartJBE 



PROCESS POLISH, Chart BG 



STA FINAL (G0633) increases the state- 
ment number by one for the statement just 
processed. It then determines whether any 
Polish notation has been produced on the 
POLISH roll? if no Polish notation is 
present, STA FINAL returns to STATEMENT 
PROCESS. 



PROCESS POLISH (G0844) moves a count of 
the number of words in the Polish notation 
for a statement, and the Polish notation 
for that statement, to the AFTER POLISH 
roll. 



If the statement produced Polish nota- 
tion of a type which may not close a DO 
loop, STA FINAL bypasses the check for the 
close of a DO loop. Otherwise, STA FINAL 
determines whether the label (if there is 
one) of the statement corresponds to the 
label of the terminal statement of a DO 
loop. If so, the label pointer Cor poin- 
ters, if the statement terminates several 
DO loops) is removed from the DO L OO PS QPEN 
roll , which holds pointers to" DO loop 
terminal statements until the terminal 
statements are found. 

When the statement is the target of a DO 
loop, extended range checking is continued. 
DO loops which have no transfers out of the 
loop are eliminated as extended range can-* 
didates. In addition, the nest level count 
is reduced by one and the information 
concerning the array references in the 
closed loop is moved from the SCRIPT roll 
to the PROGRAM SCRIPT roll . 

STA FINAL then places the label pointer 
(if it is required) on the Polish notation 
for the statement, and, at STA FINAL END, 
adds the statement number to the Polish. 

Except when the statement just processed 
was an Arithmetic IF statement, STA FINAL 
END terminates its operation by moving the 
Polish notation for the statement to the 
AFTER POLISH roll. In the case of the 
Arithmetic IF, the Polish notation is not 
moved until the label of the next statement 
has been processed by LBL FIELD XLATE. 
When the Polish notation has been moved r 
STA FINAL returns to STATEMENT PROCESS. 



ftgTiyE_ENP J5TA_XLATE t Chart, BF 



ACTIVE END STA XLATE (GQ612) is invoked 
by STATEMENT PROCESS when the END card has 
been omitted and the last statement in the 
source module has been read. If the last 
statement was not a branch* the routine 
determines whether a subprogram or a main 
program is being terminated. If it is a 
subprogram» the Polish notation for a 
RETURN is constructed; if it is a main 
program, the Polish notation for a STOP 
statement is constructed. If the last 
statement was a branch, this routine 
returns without doing anything. 



OUTPUT FROM PHASE 1 



The output from Parse is the Polish 
notation and roll entries produced for 
source module active statements, the roll 
entries produced for source module specifi- 
cation statements, and the source module 
listing (on option SOURCE) and error mes- 
sages. The following paragraphs describe 
the Polish notation and the source and 
error listings. See Appendix B for 
descriptions of roll formats. 



Polish Notation 



The primary output from Phase 1 of the 
compiler is the Polish notation for the 
source module active statements. This 
representation of the statements is pro- 
duced one statement at a time on the POLISH 
roll. At the end of the processing of each 
statement, the Polish notation is trans- 
ferred to the AFTER POLISH roll, where it 
is held until it is required by later 
phases of the compiler. 

The format of the Polish notation dif- 
fers from one type of statement to another. 
The following paragraphs describe the gen- 
eral rules for the construction of Polish 
notation for expressions. The specific 
formats of the Polish notation produced for 
the various FORTRAN statements are given in 
Appendix c. 

Polish notation is a method of writing 
arithmetic expressions whereby the tradi- 
tional sequence of "operandi" "operation" 
"operand 2 " is altered to a functional nota- 
tion of "operation" "operand 2 " "operand^.." 
Use of this notation has the advantage of 
eliminating the need for brackets of 
various levels to indicate the order of 
operations, since any "operand" may itself 
be a sequence of the form "operation" 
"operand" "operand, " to any level of 
nesting. 

Assuming expressions which do not 
include any terms enclosed in parentheses, 
the following procedure is used to con- 
struct the Polish notation for an 
expression: 
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1. At the beginning of the expression, an 
artificial driver is placed on the 
WORK roll; this driver is the Plus and 
Below Phony driver, and has a lower 
forcing strength than any arith- 
metic or logical operator. (Forcing 
strengths are given in Table 1.) 



2. As each variable name or constant in 
the expression is encountered, a 
pointer to the defining group is 
placed on the POLISH roll. 

3. When an operator is encountered, the 
corresponding driver is constructed 
and it is compared with the last 
driver on the WORK roll: 

a. If the current driver has a higher 
forcing strength than the driver 
on the bottom of the WORK roll 
(the "previous" driver, for the 
purposes of this discussion), the 
current driver is added to the 
WORK roll and the analysis of the 
expression continues. 

b. If the current driver has a forc- 
ing strength which is lower than 
or equal to the forcing strength 
of the previous driver, then: 

(1) If the previous driver is the 
Plus and Below Phony driver, 
the current driver replaces 
the previous driver on the 
WORK roll (this situation can 
only occur when the current 
driver is an EOE driver, indi- 
cating the end of the expres- 
sion) and the analysis of the 
expression is terminated. 

(2) If the previous driver is not 
the Plus and Below Phony driv- 
er, the previous driver is 
removed from the WORK roll and 
placed on the POLISH roll, and 
the comparison of the current 
driver against the previous 
driver is repeated (that is, 
using the same current driver, 
this procedure is repeated 
from 3 ) . 



where : 



A represents a pointer to the defining 
group for the variable A 

+ represents the Add driver. This nota- 
tion is produced from the top down; when it 
is read from the bottom up, the sequence 
described above for Polish notation is 
satisfied. 



Explana t ion : The following operations 
occur in the production of this Polish 
notation: 

1. The Plus and Below Phony driver is 
placed on the WORK roll. 

2. A pointer to A is placed on the POLISH 
roll. 

3. An Add driver is constructed and com- 
pared with the Plus and Below Phony 
driver on the bottom of the WORK roll; 
the Add driver has a higher forcing 
strength and is therefore added to the 
WORK roll (according to rule 3a„ 
above) . 

4. A pointer to B is placed on the POLISH 
roll. 

5. An EOE (end of expression) driver is 
constructed and compared with the Add 
driver on the bottom of the WORK roll; 
the EOE driver has a lower forcing 
strength, and the Add driver is there- 
fore removed from the WORK roll and 
added to the POLISH roll (rule 3b2) . 

6. The EOE driver is compared with the 
Plus and Below Phony driver on the 
bottom of the WORK roll; the EOE 
driver has a lower forcing strength, 
and therefore (according to rule 3bl) 
replaces the Plus and Below Phony 
driver on the WORK roll. 

7. The analysis of the expression is 
terminated and the EOE driver is 
removed from the WORK roll. The 
Polish notation for the expression is 
on the POLISH roll. 



The sequence of operations which occurs 
when the analysis of an expression is 
terminated removes the EOE driver from the 
WORK roll. 



Exam ple 1: The expression A + 
the Polish notation 



B produces 



Example 2 i 



The expression A + B / C 



produces the Polish notation 



which, read from the bottom up, is + / C B 
A. 
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Explanation : 
occur in the 
notation : 



The following operations 
production of this Polish 



1. The Plus and Below Phony driver is 
placed on the WORK roll. 

2. A pointer to A is placed on the POLISH 
roll. 

3. An Add driver is constructed and com- 
pared with the Plus and Below Phony 
driver; the Add driver has the higher 
forcing strength and is placed on the 
WORK roll. 

4. A pointer to B is placed on the POLISH 
roll. 

5. A Divide driver is constructed and 
compared with the Add driver; the 
Divide driver has the higher forcing 
strength and is placed on the WORK 
roll. 

6. A pointer to C is placed on the POLISH 
roll. 

7. An EOE driver is constructed and com- 
pared with the Divide driver; since 
the EOE driver has the lower forcing 
strength, the Divide driver is moved 
to the POLISH roll. 

8. The EOE driver is compared with the 
Add driver; since the EOE driver has 
the lower forcing strength, the Add 
driver is moved to the POLISH roll. 

9. The EOE driver is compared with the 
Plus and Below Phony driver; since the 
EOE driver has the lower forcing 
strength, it replaces the Plus and 
Below Phony driver on the WORK roll, 
and the analysis of the expression 
terminates with the removal of one 
group from the WORK roll. 



2. A pointer to A is placed on the POLISH 
roll. 

3. A Divide driver is constructed and 
compared with the Plus and Below Phony 
driver; the Divide driver has the 
higher forcing strength and is added 
to the WORK roll. 

4. A pointer to B is placed on the POLISH 
roll. 

5. A Subtract driver is constructed and 
compared with the Divide driver; the 
Subtract driver has a lower forcing 
strength, therefore the Divide driver 
is moved to the POLISH roll. 

6. The Subtract driver is compared with 
the Plus and Below Phony driver; the 
Subtract driver has the higher forcing 
strength and is added to the WORK 
roll. 

7. A pointer to C is placed on the POLISH 
roll. 

8. An EOE driver is constructed and com- 
pared with the Subtract driver; since 
the EOE driver has a lower forcing 
strength, the Subtract driver is moved 
to the POLISH roll. 

9. The EOE driver is compared with the 
Plus and Below Phony driver; the EOE 
driver replaces the Plus and Below 
Phony driver on the WORK roll and the 
analysis of the expression is ter- 
minated. 

Recursion is used in the translation of 
an expression when a left parenthesis is 
found; therefore, the term enclosed in the 
parentheses is handled as a separate 
expression. The following three examples 
illustrate the resulting Polish notation 
when more complicated expressions are 
transformed: 



Example 3 : The expression 
produces the Polish notation 



/ B - C 



Expression 

1. A-B*(C+D) 

2. (A-B)/(C*D) 

3. X/Z/(X-C)+C**X 



Polis h Notat ion 
-++DCBA 
/♦DC-BA 
+**XC/-CX/ZX 



which, read from the bottom up, is - C / B 

A. 



Explanation : The following operations 
occur in the production of this Polish 
notation: 

1. The Plus and Below Phony driver is 
placed on the WORK roll. 



The following should be noted with re- 
spect to the exponentiation operation: 

• Exponentiations on the same level are 
scanned right to left. Thus, the 
expression A**B**C**D is equivalent to 
the expression A** (B** (C**D) ) . 

• Two groups are added to the POLISH roll 
to indicate each exponentiation opera- 
tion. The first of these is the Power 
driver; the second is a pointer to the 
group on the global subprogram roll 
(GLOBAL SPROG roll) which defines the 
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required exponentiation routine. Thus, 
the expression A ** B produces the 
following Polish notation: 

Pointer to A 
Pointer to B 
Power driver 
Pointer to exponentiation routine 

The concept of Polish notation is 
extended in the FORTRAN IV (G) compiler to 
include not only the representation of 
arithmetic expressions, but also the repre- 
sentation of all parts of the active state- 
ments of the FORTRAN language. The parti- 
cular notation produced for each type of 
statement is described in Appendix C. Once 
an entire source statement has been pro- 
duced on the POLISH roll, phase 1 copies 
this roll to the AFTER POLISH roll and the 
processing of the next statement begins 
with the POLISH roll empty. 



Source Listing 



is catastrophic, at least to part of the 
statement being scanned. The second tech- 
nique is a jump to an error recording 
routine, such as ALLOCATION FAIL or SUB- 
SCRIPTS FAIL, which records the error and 
jumps to FAIL. The third technique is the 
use of one of the instructions, such as 
IEYCSF or IEYQSF, which automatically jump 
to SYNTAX FAIL if the required condition is 
not met. SYNTAX FAIL also exits through 
FAIL. 



If the statement being processed is 
active and errors have been detected in it, 
FAIL removes any Polish notation which has 
been produced for the statement from the 
POLISH roll, replacing it with an error 
indicator. FAIL then restores WORK and 
EXIT roll controls to their condition at 
the last time they were saved and returns 
accordingly. 



The secondary output from Parse is the 
source module listing. If a source listing 
is requested by the user (by means of the 
option SOURCE) , source module cards are 
listed exactly as they appear on the input 
data set with error messages added on 
separate lines of the listing. If no 
source module listing is requested, Parse 
writes only erroneous statements and their 
error messages. 

The following paragraphs describe the 
error recording methods used in phase 1, 
the format of the source listing and the 
error messages generated. 



ERROR RECORDING: 



As a rule, Parse attempts 



to continue processing source statements in 
which errors are found. However, certain 
errors are catastrophic and cause Parse to 
terminate processing at the point in the 
statement where the error occurred. 

Statements which cannot be compiled 
properly are replaced by a call to the 
FORTRAN error routine IHCIBERH. 

Throughout Parse, three techniques of 
error recording are used. The first of 
these is used when the error is not cata- 
strophic. This method records the char- 
acter position in the statement at which 
the error was detected (by means of IEYLCE, 
IEYLCT, or IEYLCF instructions) and the 
number of the error type on the ERROR roll ; 
after recording this information. Parse 
continues to scan the statement. 



Some translation routines modify the 
action of the FAIL routine through the use 
of the IEYJPE instruction so that FAIL 
returns immediately to the location follow- 
ing the IEYJPE instruction. The transla- 
tion routine can then resume the processing 
of the statement from that point. 



FORMAT OF THE SOURCE MODULE LISTING : Error 
information for a source module card con- 
taining errors appears on the listing lines 
immediately following that card. For each 
error encountered, a $ sign is printed 
beneath the active character preceding the 
one which was being inspected when the 
error was detected. The only exception 
would be in the case of a SYNTAX error. In 
such a case, the $ sign undermarks the 
character being inspected when the error is 
detected. The listing line which follows 
the printed card contains only the $ sign 
markers. 

The next line of the listing describes 
the marked errors. The errors are numbered 
within the card (counting from one for the 
first error marked) ; the number is followed 
by a right parenthesis, the error number, 
and the type of the error. Three errors 
are described on each line, for as many 
lines as are required to list all the 
marked errors on the source card. 



The second and third techniques of error 
recording are used when the error detected 



The following is an illustration of the 
printed output from phase 1: 



H2 



DIMENSION ARY( 200), BRY(200) CRY(5,10,10> 

$ 
1) IEY004I COMMA 



IF (AA + BB) 15, 20, 250000 

$ 
1) IEY010I SIZE 

ARY(J) - BRY 

$ $ 

1) IEY002I LABEL 2) IEY012I SUBSCRIPT 
GTO 30 

$ 
1) IEY013I SYNTAX 



ERROR TYPES : The types of errors detected 
and reported by Parse are described in the 
following paragraphs. For each error type, 
the entire message which appears on the 
source output is given; the condition code 
and a description of the causes of this 
error follows the message. 



IEY001I ILLEGAL TYPE ; This message is 
associated with the source module statement 
when the type of a variable is not correct 
for its usage. Examples of situations in 
which this message would be given are: (1) 
The variable in an Assigned GO TO statement 
is not an integer variable; (2) In an 
assignment statement, the variable on the 
left of the equal sign is of logical type 
and the expression on the right side is 
not. The condition code is 8. 



IEX2P_7I_ID_CONFLICT: The name of a vari- 
able "or subprogram is used improperly, in 
the sense that a previous statement or a 
previous portion of the present statement 
has established a type for the name, and 
the present usage is in conflict with that 
type. Examples of such situations are: 

(1) The name listed in a CALL statement is 
the name of a variable, not a subprogram; 

(2) A single name appears more than once in 
the dummy list of a statement function; (3) 
A name listed in an EXTERNAL statement has 
already been defined in another context. 
The condition code is 8. 

IEY008I ALLOCATION: Storage assignments 

specified by a source module statement 
cannot be performed due to an inconsistency 
between the present usage of a variable 
name and some prior usage of that name, or 
due to an improper usage of a name when it 
first occurs in the source module. 
Examples of the situations causing the 
error are: <1) A name listed in a COMMON 
block has been listed in another COMMON 
block; 2) A variable listed in an EQUIVA- 
LENCE statement is followed by more than 
seven subscripts. The condition code is 8. 

IEY009I ORDER : The statements of a source 
module are used in an improper sequence. 
This message is produced, for example, 
when: (1) An IMPLICIT statement appears as 
anything other than the first or second 
statement of the source module; (2) An 
ENTRY statement appears within a DO loop. 
The condition code is 8. 



IEY002I LABEL : This message appears with a 
statement which should be labeled and is 
not. Examples of such statements are: (1) 
A FORMAT statement; (2) The statement fol- 
lowing a GO TO statement. The condition 
code for the error is 0. 

IEY003I NAME LENGTH: The name of a vari- 
able, COMMON block7 NAMELIST, or subprogram 
exceeds six characters in length. If two 
variable names appear in an expression 
without a separating operation symbol, this 
message is produced. The condition code is 
4. 



IEY010I SIZE: 



A number used in the source 



module does not conform to the legal values 
for its use. Examples are: (1) The size 
specification in an Explicit specification 
statement is not one of the acceptable 
values; (2) A label which is used in a 
statement exceeds the legal size for a 
statement label; (3) An integer constant is 
too large. The condition code is 8. 

IEY011I UNDIMENSIONED : A variable name 

indicates an array (i.e., subscripts follow 
the name), and the variable has not been 
dimensioned. The condition code is 8. 



IEYOOUI COMMA : A comma is supposed to 
appear in a statement and it does not. The 
condition code is 0. 

IEY005I ILLEGAL LABEL : The usage of a 
label is invalid for example, if an attempt 
is made to branch to the label of a FORMAT 
statement, ILLEGAL LABEL is produced. The 
condition code is 8. 

IEY006I DUPLICATE LABEL : A label appearing 
in the label field of a statement is 
already defined (has appeared in the label 
field of a previous statement). The condi- 
tion code is 8. 



IEY012I SUBSCRIPT: The number of sub- 
scripts used in an array reference is 
either too large or too small for the 
array. The condition code is 8. 

IEY013I SYNTAX : The statement or part of a 
statement to which it refers does not 
conform to FORTRAN IV syntax. If a state- 
ment cannot be identified, this error mes- 
sage is used. Other cases in which it 
appears are: (1) A non-digit appears in 
the label field; (2) Fewer than three 
labels follow the expression in an Arith- 
metic IF statement. The condition code is 
8. 
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IEY014I CONVERT ; In a DATA statement or in 
an Explicit specification statement con- 
taining data values, the mode of the con- 
stant is different from the mode of the 
variable with which it is associated. The 
compiler converts the constant to the 
correct mode,. Therefore, this message is 
simply a notification to the programmer 
that the conversion is performed. The 
condition code is 0. 

IEY0 15I N O END CAR D : The source module 

does not contain an END statement. The 
condition code is 0. 



IEY016I ILLEGAL STA. ; The statement to 
which it is attached is invalid in the 
context in which it has been used. 
Examples of situations in which this mes- 
sage appears are: (1) The statement S in a 
Logical IF statement (the result of the 
true condition) is a specification state- 
ment, a DO statement, etc. ; 2) An ENTRY 
statement appears in the source module and 
the source module is not a subprogram. The 
condition code is 8. 



IEY037 I_PREVigySLY_DIMENSIONED WRN. : The 

array "flagged has" been previously dimen- 
sioned. The dimensions that were given 
first are used. Examples of this error are 
(1) a DIMENSION statement defining an array 
with a subsequent COMMON statement defining 
the same array with new dimensions, or (2) 
array dimensions specified in a Type state- 
ment and also, in a subsequent DIMENSION 
and/or COMMON statement. The condition 
code is 4. 



IEY038I SIZE WRN. : 



variable has data 



initializing values that exceed the size of 
the scalar, the array, or the array ele- 
ment. Examples of this error are (1) the 
specification REAL A/'ABCDE 1 / where A has 
not been previously dimensioned (i.e., A is 
a scalar), or (2) the specification 
DATA A(1)/7H ABCDEFG/ where A has been 
previously dimensioned. The condition code 
is 4. 



IEY017I ILLEGAL STA. WRN ; A RETURN I 
statement appears in any source module 
other than a SUBROUTINE subprogram. The 
condition code is 0. 



IEY018I NUMBER ARG : A reference to a 
library subprogram appears with the in- 
correct number of arguments specified. 
The condition code is 4. 



IEY027I CONTINUATION CARDS DELETED : More 
than 19 continuation lines were read for 1 
statement. All subsequent lines are 
skipped until the beginning of the next 
statement 
code is 8. 



is encountered. The condition 



IEY033I COMMENTS DELETED: 



More than 30 



comment lines were read between the initial 
lines of 2 consecutive statements. The 
31st comment line and all subsequent com- 
ment lines are skipped until the beginning 
of the next statement is encountered. 
(There is no restriction en the number of 
comment lines preceding the first state- 
ment.) The condition code is 0. 

IEY0 36I ILLE GAL LABEL WRN: The label on 

this nonexecutable statement has no valid 
use beyond visual identification, and may 
produce errors in the object module if the 
same label is the target of a branch-type 
statement. (Only branches to executable 
statements are valid. ) This message is 
produced, for example, when an END state- 
ment is labeled. The message is issued as 
a warning only. The condition code is 4. 



PHASE 2 OF THE COMPILER: ALLOCATE (IEYALL) 



Phase 2 of the compiler performs the 
assignment of storage for the variables 
defined in the source module. The results 
of the allocation operations are entered on 
tables which are left in storage for the 
next phase. In addition, Allocate writes 
(on option) the object module ESD cards, 
the TXT cards for NAMELIST tables, literal 
constants, and FORMAT statements, and pro- 
duces error messages and storage maps 
(optionally) on the SYSPRINT data set. 



The following paragraphs describe the 
operations of Allocate in two parts. The 
first part, "Flow of Phase 2," describes 
the overall logic of the phase by means of 
narrative and flowcharts. 



The second part, "Output from Phase 2," 
describes the error messages and memory 
maps which are produced on the source 
module listing during the operation of the 
phase, as well as the ESD and TXT cards 
produced. It also describes the types of 
error detection performed during Allocate. 



Rolls manipulated by Allocate are listed 
in Table 4, and are briefly described in 
context. Detailed descriptions of roll 
structures are given in Appendix B. 
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Table 4. Rolls Used by Allocate 



"" 








Roll 




Roll 






NO. 


Roll Name 


No. 


Roll Name 




1 


Source 


39 


Halfword 




5 


Literal Const 




Scalar 




7 


Global Sprog 


40 


Common Name 




14 


Temp 


41 


Implicit 




15 


Do Loops Open 


42 


Equivalence 




18 


Init 




Offset 




19 


Equiv Temp 


43 


Lbl 




20 


Equiv Hold 


44 


Scalar 




21 


Base Table 


45 


Data Var 




22 


Array 


47 


Common Data 




23 


Dmy Dimension 




Temp 




24 


Entry Names 


48 


Namelist 




25 


Global Dmy 




Allocation 




26 


Error Lbl 


48 


Common Area 




27 


Local Dmy 


49 


Common Name 




28 


Local Sprog 




Temp 




29 


Explicit 


50 


Equiv 




30 


Error Symbol 




Allocation 




31 


Namelist Names 


52 


Common 




32 


Namelist Items 




Allocation 




34 


Branch Table 


53 


Format 




37 


Equivalence 


60 


Subchk 




37 


Byte Scalar 


68 


General 




38 


Used Lib 
Function 




Allocation 




39 


Common Data 
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FLOW OF PHASE 2, CHART 05 



START ALLOCATION (GO 3 59) controls the 
operation of the Allocate phase. The pri- 
mary function of this routine is to call 
the subordinate routines which actually 
perform the operations of the phase. 

The operation of Allocate is divided 
into three parts: the first part performs 
initialization; the second part (called 
pass 1) makes an estimate of the number of 
base table entries required to accommodate 
the data in the object module; the third 
part actually assigns storage locations for 
the object module components, leaving indi- 
cations of the assignment in main storage 
for use by subsequent phases. 

The first part of Allocate* s operation 
is performed by calling the routines ALPHA 
LBL AND L SPROG, PREP EQUIV AND PRINT 
ERRORS, BLOCK DATA PROG ALLOCATION, PREP 
DMY DIM AND PRINT ERRORS, PROCESS DO LOOPS, 
PROCESS LBL AND LOCAL SPROGS, BUILD PROGRAM 
ESD, ENTRY NAME ALLOCATION, COMMON 
ALLOCATION AND OUTPUT, and EQUIV ALLOCATION 
PRINT ERRORS. 

After return from EQUIV ALLOCATION PRINT 
ERRORS, START ALLOCATION initializes for 
and begins pass 1. The variable PROGRAM 
BREAK, which is used to maintain the rela- 
tive address being assigned to an object 
module component, is restored after being 
destroyed during the allocation of COMMON 
and EQUIVALENCE. The groups in the BASE 
TABL E roll (which becomes the object module 
base table) are counted, and the value ten 
is added to this count to provide an 
estimate of the size of the object module 
base table. The BASE TABLE roll is then 
reserved so that groups added to the roll 
can be separated from those used in the 
count. The value one is assigned to the 
variable AREA CODE, indicating that storage 
to be assigned is all relative to the 
beginning of the object module and carries 
its ESD number. 



prior to pass 1. The BASE TABLE roll 
groups are counted to determine the total 
size of the roll after groups have been 
added by pass 1; again, five extra groups 
(or ten words) are added to the count to 
provide for data values which will appear 
in the object module, but which are not yet 
defined., The PASS 1 FLAG is then turned 
Off, and START ALLOCATION calls DEEUG 
ALLOCATE, ALPHA SCALAR ARRAY AND SPROG, 
BASE AND BRANCH TABLE ALLOC, GLOBAL SPROG 
ALLOCATE, SPROG ARG ALLOCATION, EQUIV MAP, 
SCALAR ALLOCATE, ARRAY ALLOCATE, BUILD 
NAMELIST TABLE, LITERAL CONST ALLOCATION, 
and FORMAT ALLOCATION. 

At RELEASE ROLLS, START ALLOCATION con- 
cludes its operation by releasing rolls, 
increasing the PROGRAM BREAK to ensure that 
the next base begins on a doubleword boun- 
dary, and calling CALCULATE BASE AND DISP 
and BUILD ADDITIONAL BASES in order to 
guarantee that at least three bases are 

allotted for the TEMP AND CONST roll. 

After this calculation, Allocate prepares 
for and relinquishes control to Unify. 



ALPHA LBL AND L SPROGS, Chart CA 



This routine (G05H3) is the first rou- 
tine called by START ALLOCATION, It moves 
the binary labels from the LBL roll and the 
statement function names from the LOCAL 
SPROG roll to the DATA VAR roll . The order 
of the labels and statement function names 
on their respective rolls is maintained, 
and the location on the DATA VAR roll at 
which each begins is recorded. The names 
are moved because Allocate destroys them in 
storing allocation information, and Exit 
needs them for writing the object module 
listing. 



ALPHA SCALAR ARRAY AND SPROG, Chart CA 



When these operations are complete, 
START ALLOCATION calls EASE AND BRANCH 
TABLE ALLOC, and upon return from this 
routine again increases the variable 
PROGRAM BREAK by the amount of storage 
allocated to EQUIVALENCE. START ALLOCATION 
continues its operation by calling BUILD 
ADDITIONAL EASES, PREP NAMELIST, SCALAR 
ALLOCATE, ARRAY ALLOCATE, PASS 1 GLOBAL 
SPROG ALLOCATE, SPROG ARG ALLOCATION, 
LITERAL CONST ALLOCATION and FORMAT 
ALLOCATION. 

After the operation of FORMAT 
ALLOCATION, the last part of Allocate is 
begun. The variable PROGRAM BREAK is re- 
initialized to the value it was assigned 



This routine moves the names of scalar s, 
arrays, and called subprograms to the DATA 
VAR roll from the rolls on which they are 
placed by Parse. The order of names is 
preserved and the beginning location for 
each type of name on the DATA VAR roll is 
saved. 



PREP EQUIV AND PRINT ERRORS f Chart CB 



Subscript information on the EQUIVALENCE 
O FFSET roll (which indicates the subscripts 
used in EQUIVALENCE statements in the 
source module) is used by this routine 
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(G0362) to calculate the relative ad- 
dresses of array elements referred to in 
statements. (Pointers to the EQUIVALENCE 
OFFSET roll are found on the EQUIVALENCE 
roll for all subscripted references in 
EQUIVALENCE statements. ) The addresses 
computed are relative to the beginning of 
the array. When an array reference in a 
source module EQUIVALENCE statement is out- 
side the array,, designates an excessive 
number of dimensions, or specifies too few 
dimensions, an error message is printed by 
this routine. 



On encountering information on the DO 
LOOPS OPEN roll, this routine records the 
undefined labels for listing as DO loop 
errors, and (on option) lists them. It 
also sets the high order bit of the TAG 
field of the LBL_roll group which refers to 
the undefined label to zero; this indicates 
to Gen that the loop is not closed. 



PROCESS LBL AND LOCAL SPROGS, Chart CF 



BLOCK DATA PROG ALLOCATION, Chart CC 



This routine 4G0361) controls the allo- 
cation of data specified in DATA, COMMON, 
DIMENSION, EQUIVALENCE, and Type statements 
in a BLOCK DATA subprogram. Since all data 
specified in EQUIVALENCE must be allocated 
under COMMON, this routine registers an 
error upon encountering on the EQUIVALENCE 
roll. The routine terminates with a jump 
to RELEASE ROLLS (G0360), which, in turn, 
terminates the Allocate phase. 



PREP DMY DIM AND PRIN T ERRORS, Chart CD 



This routine (G0365) constructs the DMY 
DIMENSION roll, placing a pointer to the 

ENTR Y NAME S rol l group defining the ENTRY 

with which a dummy array is connected, and 
a pointer to the array for each dummy array 
containing a dummy dimension. 

Before the roll is constructed, this 
routine ensures that each array having 
dummy dimensions is itself a dummy, and 
that each dummy dimension listed for the 
array is either in COMMON or is a global 
dummy variable in the same call. If any of 
these conditions are not satisfied, error 
messages are written. 



This routine (G0372) constructs the 
BRANCH TABLE roll , which is to become the 
object module branch table. The routine 
first processes the LBL roll. For each 
branch target label found on that roll, a 
new BRANCH TABLE roll group is constructed, 
and the label on the LBL roll is replaced 
with a pointer to the group constructed. 
Undefined labels are also detected and 
printed during this process. 

When this operation is complete, the 

LOCAL SPROG_roll (which lists the names of 

all statement functions) is inspected, and 
for each statement function, a group is 
added to the BRANCH TABLE roll, and part of 
the statement function name is placed with 
a pointer to the constructed group. 



BUILD PROGRAM ESD, Chart CG 



This routine (GO 37 4) constructs and 
punches the ESD cards for the object module 
itself (the program name) and for each 
ENTRY to the object module. It also 
assigns main storage locations to the 
object module heading by increasing the 
PROGRAM BREAK by the amount of storage 
required. 



PROCESS DO LOOPS, Chart CE 



ENTRY NAME ALLOCATION, Chart CH 



This routine (G0371) inspects the DO 
LOOPS OPEN roll for the purpose of deter- 
mining whether DO loops opened by the 
source module have been left unclosed; that 
is, whether the terminal statement of a DO 
loop has been omitted from the source 
module. The DO LOOPS CPEN roll holds 
pointers to labels of target statements for 
DO loops until the loops are closed. If 
any information is present on this roll, 
loops have been left unclosed. 



This routine (G0376) does nothing if the 
source module is other than a FUNCTION 
subprogram. If, however, the source module 
is a FUNCTION, this routine places the 
names of all ENTRYs • to the source module on 
the EQUIVALENCE roll as a single 
EQUIVALENCE set; it also ensures that the 
ENTRY name has been used as a scalar in the 
routine. If the variable has not been 
used, an appropriate error message is 
printed and the scalar variable is defined 
by this routine. 
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COMMON ALLOCATION AND OUTPUT. Chart CI 



This routine (G0377) allocates all COM- 
MON storage, one block at a time, generat- 
ing the COMMON ALLOCATION roll (which holds 
the name, base pointer, and displacement 
for all COMMON variables) in the process. 
Groups are added to the BASE TABLE roll as 
they are required to provide for references 
to variables in COMMON. The ESD cards for 
COMMON are constructed and written out. 
All errors in COMMON allocation are written 
on the source listing and the map of COMMON 
storage is also written (on option) . 



EQUIV ALLOCATION PRINT ERRORS, Chart CK 



allocates storage for the variables listed 
on the roll, except for those which are in 
COMMON or members of EQUIVALENCE sets. The 
first time SCALAR ALLOCATE operates , it 
determines the number of base table entries 
required to accommodate references to the 
object module scalar variables. The infor- 
mation on the SCALAR roll is not altered, 
nor is any other roll built or modified by 
the routine. 



At the second operation of the routine, 
the SCALAR roll is modified, and the actual 
storage locations (represented by the base 
pointer and displacement) to be occupied by 
the scalar variable are either computed and 
stored on the SCALAR roll or copied from 
the COMMON or EQUIV ALLOCATION roll to the 
SCALAR roll. 



This routine (G0381) allocates storage 
for EQUIVALENCE variables, creating the 
EQUIVALENCE ALLOCATION roll in the process. 
For each variable appearing in an EQUIVA- 
LENCE set, except for EQUIVALENCE variables 
which refer to COMMON (which have been 
removed from the EQUIVALENCE roll during 
the allocation of COMMON storage), the name 
of the variable and its address are 
recorded. 

The information pertaining to EQUIVA- 
LENCE sets is stored on the EQUIV ALLOCA- 
TION roll in order of ascending addresses. 
Required bases are added to the BASE TABLE 
roll, and all remaining EQUIVALENCE errors 
are printed. 



All "call by name" dummy variables are 
placed on the FULL WORD SCALAR roll; as 
each remaining scalar is inspected, its 
mode is determined. If it is of size 8 or 
16 (double-precision real or single- or 
double-precision complex) , storage is allo- 
cated immediately. If the variable does 
not require doubleword alignment, it is 
moved to one of three rolls depending on 
its size: FULL WORD SCALAR, HALF WORD 
SCALAR, or BYTE SCALAR. 

When all groups on the SCALAR roll have 
been processed in this manner, the 
variables on the FULL WORD SCALAR roll , 
then the HALF WORD SCALAR roll , then the 
BYTE SCALAR roll are assigned storage. The 
map of scalars is produced (on option) by 
this routine. 



BASE AND BRANCH TABLE ALLOC. Chart CL 



This routine (G0437) assigns main 
storage for the object module save area, 
base table, and branch table. The required 
base table entries are added as needed, 
PROGRAM BREAK is increased, and the base 
pointer and displacement for each of these 
areas is recorded in a save area for use by 
Gen. During pass 1 of Allocate, this 
assignment of storage is tentative and 
depends on the estimate of the size of the 
base table. The second time this routine 
is operated, the actual number of base 
table entries required in the object module 
has been determined by pass 1 and the space 
allocation is final. 



SCALAR ALLOCATE, Chart CM 



Each group on the SCALAR roll is 
inspected by this routine (G0397), which 
defines all nonsubscripted variables. It 



ARRAY ALLOCATE, Chart CN 



This routine (G0401) , like SCALAR ALLOC- 
ATE, is called twice by START ALLOCATE. 
The first time it is called, it determines 
the number of base table entries required 
for references to the object module arrays. 
The second time the routine is operated, it 
actually assigns storage for the arrays, 
and records the appropriate base pointer 
and displacement on the ARRAY roll. 

As each array name is found on the ARRAY 
roll, it is compared with those on the 
COMMON, EQUIV, and GLOBAL DMY rolls. For 
COMMON and EQUIVALENCEd arrays, the alloca- 
tion information is copied from the appro- 
priate roll. Since all dummy arrays are 
"call by name" dummies, dummy array groups 
are always replaced with pointers to the 
GLOBAL DMY roll. For each array to be 
assigned storage, new base table entries 
are constructed as required. In no case is 
more than one base used for a single array. 
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Since arrays are allocated in the order 
of their appearance, some unused storage 
space may appear between consecutive arrays 
due to the required alignment. The array 
map is produced (on option) by this 
routine. 



literal constants in the object module. 
The second operation of the routine 
actually assigns storage for all literal 
constants (except those appearing in source 
module DATA and PAUSE statements) and 
writes (on option) the TXT cards for them. 



PASS 1 GLOBAL SPROG ALLOCATE, Chart CO 



FORMAT ALLOCATION, Chart CS 



This routine (G0402) counts the groups 
on the GLOBAL SPROG and USED LI B FUNCTION 
rolls (which hold, respectively, the non- 
library and library subprogram names 
referred to in the source module) to deter- 
mine the number of base table entries 
required for references to the subprogram 
addresses region of the object module. The 
required BASE TABLE roll groups are added. 



SPROG ARG ALLOCATION, Chart CP 



This routine (G0442) adds the number of 
arguments to subprograms (and thus, the 
number of words in the argument list area 
of the object module) to the PROGRAM BREAK, 
thus allocating storage for this portion of 
the object module. BASE TABLE roll groups 
are added as required. 



PREP NAMELIST, Ch art CQ 



This routine (G0443) determines the 
amount of main storage space required for 
each object module NAMELIST table. The 
NA MEL IST ALLOCATION roll is produced during 
this routine's operation; it contains, for 
each NAMELIST data item, the name of the 
item and a pointer to the SCALAR or ARRAY 
roll group defining it. If any data name 
mentioned in a NAMELIST is not the name of 
a scalar or array, the appropriate error 
message is printed by this routine. 

The NAMELIST NAMES roll is left holding 
the NAMELIST name and the absolute location 
of the beginning of the corresponding 
object module NAMELIST table. Required 
BASE TABLE roll groups are added by this 
routine. 



This routine (G0445) is called twice by 
START ALLOCATION. The first time it is 
called is during the operation of pass 1. 
In pass 1, the PROGRAM BREAK is increased 
by the number of bytes occupied by each 
FORMAT. 

The second time that FORMAT ALLOCATION 
is called, each FORMAT is written out and 
the FORMAT roll is rebuilt. The base and 
displacement information and a pointer to 
the label of the FORMAT statement are the 
contents of the rebuilt FORMAT group. The 
map of the FORMAT statements used in the 
object module is also written out (on 
option) by this routine. 



EQUIV MA P, Chart CT 



This routine (G0441) adjusts the values 
on the E QUIVALENCE ALLOCATION roll to the 
corrected (for the correct allocation of 
the base table, since this routine operates 
after the completion of pass 1) base point- 
er and displacement, and constructs the 
BASE TABLE roll groups required. The map 
of EQUIVALENCE variables is produced (on 
option) by this routine. 



GLOBAL SPROG ALLOCATE, Chart CU 



This routine (G0403) goes through the 
GLOBAL SPROG and USED LIB FUNCTION rolls, 
inserting the base pointer and displacement 
for each of the subprograms listed there; 
this is the allocation of storage for the 
subprogram addresses region of the object 
module. The ESD cards for the subprograms 
are written, the required BASE TABLE roll 
groups are added, and a list of the subpro- 
grams called is produced (on option) . 



LITERAL CONST ALLOCATION, Chart CR 



BUILD NAMELIST TABLE, Chart CV 



This routine (G0444) is called twice by 
START ALLOCATION. Its first operation de- 
termines the number of BASE TABLE roll 
groups which should be added to cover the 



This routine (G0405) operates after pass 
1 of Allocate. It uses the NAMELIST NAMES 
roll in determining the base and displace- 
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merit for each NAMELIST reference in the 
source module. The BASE TAELE roll groups 
are added as required. The PROGRAM BREAK 
is increased as indicated, and the TXT 
cards are written out according to the base 
and displacement calculations for each 
entry on the NAMELIST ALLOCATION roll. A 
map of the NAMELIST tables is produced (on 
option) by this routine. 



ENTRY is defined. If no such scalars are 
listed on the SCALAR roll, the message 



IEY019I FUNCTION ENTRIES UNDEFINED 



is written on the source module listing. 
The message is followed by a list of the 
undefined names. The condition code is 4. 



EUILD ADDITIONAL BASES, Chart CW 



This routine (G0438) is called whenever 
it may be necessary to construct a new BASE 
TABLE roll group. It determines whether a 
new base is required and, if so, constructs 
it. 



COMMON ERRORS: Errors of two types can 

exist in" the definitions of EQUIVALENCE 
sets which refer to the COMMON area. The 
first type of error exists because of a 
contradiction in the allocation specified, 
e.g., the EQUIVALENCE sets (A, B(6) ,C(2) ) 
and (B(8),C(D). The second error type is 
due to an attempt to extend the beginning 
of the COMMON area, as in COMMON A, B, c and 
EQUIVALENCE (A,F(10)). 



DEBUG ALLOCATE. Chart CX 



This routine (G05U5) processes the 
information on the INIT and SUBCHK rolls, 
marking the groups on the SCALAR, ARRAY, 
and GLOBAL DMY rolls which define the 
variables listed. When all the information 
on the SUBCHK roll has been processed, the 
routine returns. 



An additional error in the assignment of 
COMMON storage occurs if the source program 
attempts to allocate a variable to a loca- 
tion which does not fall on the appropriate 
boundary. Since each COMMON block is 
assumed to begin on a double-precision 
boundary, this error can be produced in 
either (or both) the COMMON statement and 
an EQUIVALENCE statement which refers to 
COMMON. 



OUTPUT FROM PHASE 2 



When each block of COMMON storage has 
been allocated, the message 



The following paragraphs describe the 
output from Allocate: error messages, 
maps, and cards. Allocate also produces 
roll entries describing the assignment of 
main storage. See Appendix B for descrip- 
tions of the roll formats. 



Error M e ssages P ro duc ed by Allocate 



IEY020I COMMON BLOCK / / ERRORS 



is printed if any error has been detected 
(the block name is provided) . The message 
is followed by a list of the variables 
which could not be allocated due to the 
errors. The condition code is 4. 



The source module listing, with error 
indications and error messages for the 
errors detected during initial processing 
of the source statements, is produced by 
phase 1 of the compiler. Certain program 
errors can occur, however, which cannot be 
detected until storage allocation takes 
place. These errors are detected and 
reported (if a listing has been requested), 
at the end of the listing by ALLOCATE; the 
error messages are described in the follow- 
ing paragraphs. 

FUNCTION ERROR : When the program being 
compiled is a FUNCTION subprogram, a check 
is made to determine whether a scalar with 
the same name as the FUNCTION and each 



Unclosed DO Loops 



If DO loops are initiated in the source 
module, but their terminal statements do 
not exist, Allocate finds pointers to the 
labels of the nonexistent terminal state- 
ments on the DO LOOPS OPEN roll. If 
pointers are found on the roll, the message 

IEY021I UNCLOSED DC LOOPS 

is printed, followed by a list of the 
labels which appeared in DO statements and 
were not defined in the source module. The 
condition code is 8. 
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UNDEFINED LABELS: If any labels are used 
in the source module but are not defined, 
they constitute label errors. Allocate 
checks for this situation. At the conclu- 
sion of this check, the message 

IEY022I UNDEFINED LABELS 

is printed. If there are undefined labels 
used in the source module, they are listed 
on the lines following the message. The 
condition code is 8. 



BLOCK DATA ERRORS ; If variables specified 
within the BLOCK DATA subprogram have not 
also been defined as COMMON, they consti- 
tute errors. The message 

IEY026I BLOCK DATA PROGRAM ERRORS 

is produced on the source module listing 

followed by a summarization of the 

variables in error. The condition code is 
4. 



EQUI V ALENC E ERRO RS : Allocation errors due 
to the arrangement of EQUIVALENCE state- 
ments which do not refer to COMMON 
variables may have two causes. The first 
of these is the conflict between two EQUIV- 
ALENCE sets; for example, (A, B<6) ,C( 3) ) and 
<B<8>,C(1>>. 

The second is due to incompatible boun- 
dary alignment in the EQUIVALENCE set. The 
first variable in each EQUIVALENCE set is 
assigned to its appropriate boundary, and a 
record is kept of the size of the variable. 
Then, as each variable in the set is 
processed, if any variable of a greater 
size requires alignment, the entire set is 
moved accordingly. If any variable is 
encountered of the size which caused the 
last alignment, or of lower size, and that 
variable is not on the appropriate boun- 
dary, this error has occurred. 

If EQUIVALENCE errors of either of these 
types occur, the message 

IEY023I EQUIVALENCE ALLOCATION ERRORS 

is printed. The message is followed by a 
list of the variables which could not be 
allocated according to source module speci- 
fications. The condition code is 4. 

Another class of EQUIVALENCE error is 
the specification, in an EQUIVALENCE set, 
of an array element which is outside the 
array. These errors are summarized under 
the heading 

IEY024I EQUIVALENCE DEFINITION ERRORS 



on the source module listing, 
tion code is 4. 



The condi- 



DUMMY DIMENSION ERRORS : If variables spe- 
cified as dummy array dimensions are not in 
COMMON and are not global dummy variables, 
they constitute errors. These are summa- 
rized under the heading 



IEY025I DUMMY DIMENSION ERRORS 

on the source module listing, 
tion code is 4. 



Storage_Maps_Prgduced_by_Allocate 



Allocate produces the storage maps de- 
scribed below during its operations; these 
maps are printed only if the MAP option is 
specified by the programmer. 

COMMON MAP : The map of each COMMON block 
is produced by Allocate. The map is headed 
by two title lines; the first of these is 

COMMON / name / MAP SIZE n 

and the second is the pair of words 

SYMBOL LOCATION 

printed five times across the line. The 
title lines are followed by a list . of the 
variables assigned to the COMMON block and 
their relative addresses, five variables 
per line, in order of ascending relative 
addresses. The name contained within the 
slashes is the name of the COMMON block. 
The amount of core occupied by the block 
(n) is given in hexadecimal and represents 
the number of bytes occupied. 



The condi- 



Subproqram L ist 



Allocate prints a list of the subpro- 
grams called by the source module being 
compiled. This list is printed only if the 
MAP option is specified by the programmer. 
The subprogram list is headed by the line 

SUBPROGRAMS CALLED 

and contains the names of the subroutines 
and functions referred to in the source 
module. 

SCALAR MAP: The scalar map is produced by 

Allocate~and consists of two title lines, 
the first of which reads 

SCALAR MAP 

and the second of which is identical to the 
second title line of the COMMON maps. The 
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title is followed by a list of the non- 
COMMON scalar variables, five variables per 
line, and their relative addresses, in 
order of ascending relative addresses. 



ARRAY MAP : 



The first title line of the 



is 



array map reads 

ARRAY MAP 

In all other respects, the array map 
identical to. the scalar map. 

EQUIVALENCE MAP: The first title line of 

the map of EQUIVALENCE sets reads 

EQUIVALENCE DATA MAP 

The second line for both maps is standard. 
The variables listed in the EQUIVALENCE map 
are those not defined as COMMON. 

NAMELIST M AP; This map shows the locations 
of the NAMELIST tables. The first title 
line reads 



ESD, type 1 - contains the entry point to a 
SUBROUTINE or FUNCTION subpro- 
gram, or the name specified in 
the NAME option, or the name 
MAIN. The name designated on the 
card indicates where control is 
given to begin execution of the 
module. 



ESD, type 2 - contains the names of subpro- 
grams referred to in the source 
module by CALL statements, 
EXTERNAL statements, explicit 
function references, and implicit 
function references. 



ESD, type 5 - contains information about 
each COMMON block. 



The TXT cards produced during this phase 
fill the following areas of the object 
module: 



NAMELIST MAP 

and the second line is standard. The 
symbol listed is the NAMELIST name asso- 
ciated with each of the tables. 

FORM A T MAP : This map gives the labels and 
locations of FORMAT statements. The first 
title line is 

FORMAT STATEMENT MAP 

and the second title is the same as the 
others described. The symbol listed is the 
label of the FORMAT statement. 



Cards Produced by Allocate 



Allocate produces both ESD and TXT 
cards, provided that a DECK option or a 
LOAD option has been specified by the 
programmer. All ESD cards required by the 
object module are produced during this 
phase. These include cards for the CSECT 
in which the object module is contained for 
each COMMON block and for each subprogram 
referred to by the object module. 

The ESD cards that are produced by 
Allocate are given in the following order 
according to type: 

ESD, type - contains the name of the 
program and indicates the begin- 
ning of the object module. 



• The NAMELIST tables 

• The literal constants 

• The FORMAT statements 



The other TXT cards required for the 
object module are produced by later phases 
of the compiler. 



PHASE 3 OF THE COMPILER: UNIFY (IEYUNF) 



The third phase of the compiler opti- 
mizes the subscripting operations performed 
by the object module by deciding, on the 
basis of frequency of use, which subscript 
expressions within DO loops are to appear 
in general registers, and which are to be 
maintained in storage. 

The following paragraphs, "Flow of Phase 
3," describe the operation of Unify by 
means of narrative and flowcharts. 

The rolls manipulated by Unify are 
listed in Table 5 and are mentioned in the 
following discussion of the phase; these 
rolls are briefly described in context. 
See Appendix B for a complete description 
of any roll used in the phase. 
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Table 5. Rolls Used by Unify 









Roll Number 




Roll Name I 


2 




Nonstd Script J 


3 




Nest Script ] 


4 




Loop Script | 


13 




Std Script | 


in 




Temp | 


20 




Reg ] 


21 




Base Table | 


22 




Array | 


52 




Loop Control | 


54 




Script | 


55 




Loop Data | 


56 




Program Script | 


57 




Array Ref | 


58 




Adr Const | 









ARRAY REF ROLL ALLOTMENT, Chart DA 



This routine (G0145) constructs the 
ARRAY REF roll. The groups on this roll 
are initialized with values of zero. 
Pointers to the roll have been placed on 
the SCRIPT roll and in the Polish notation 
by Parse, but information has not actually 
been put on the roll before this routine is 
called. The number of groups required has 
been transmitted from Parse. 



CgNVERT_TO_ADR_CONST 1 __Chart_DB 



FLOW OF PHASE 3, CHART 07 



START UNIFY (G0111) controls the opera- 
tion of this phase of the compiler. It 
initializes for the phase by setting the 
proper number of groups on the ARRAY REF 
roll to zero (this function is performed by 
the routine ARRAY REF ROLL ALLOTMENT) and 
moving the information transmitted on the 
PROGRAM SCRIPT roll to the SCRIPT roll. 
When the initialization is complete, the 
reserve blocks on the SCRIPT roll are in 
order from the outermost loop of the last 
source module DO nest (at the top of the 
roll) to the innermost loop of the first 
source module DO nest (at the bottom of the 
roll). 

After initialization, START UNIFY begins 
the optimizing process by inspecting the 
last group of a reserve block on the SCRIPT 
roll; a value of zero in this group indi- 
cates the end of the SCRIPT roll informa- 
tion. When the value is nonzero, DO NEST 
UNIFY is called to process the information 
for an entire nest of DO loops. On return 
from this routine, the nest has been pro- 
cessed; the count of temporary storage 
locations required is updated, and START 
UNIFY repeats its operations for the next 
nest of loops. 

When all loops have been processed, 
START UNIFY makes a complete pass on the 
ARRAY REF roll , setting up the instruction 
format for the array references from point- 
ers which have been left on the roll 
(CONVERT TO INST FORMAT actually sets up 
the instruction fields). When all groups 
on the ARRAY REF roll have been processed, 
a jump is made to CONVERT TO ADR CONST. 
This routine sets up groups as required on 
the ADR CO NS T rol l from data on the LOOP 
CONTROL roll. When the LOQP_CONTROL_rgll 
has been processed, this routine terminates 
the Unify phase by calling Gen. 



This routine (G0113) constructs the ADR 
CONST roll from the base address informa- 
tion on the LOOP CONTROL roll. 



When the third word of the LOOP CONTROL 
roll group contains an area code and dis- 
placement, Unify requires a base address 
which it does not find in the base table. 
Since no values can be added to the base 
table by Unify, the required value must be 
placed in the temporary storage and con- 
stant area of the object module. The ADR 
CONST roll holds the information required 
for Exit to place the value in a temporary 
storage and constant location and to pro- 
duce the RLD card required to get the 
proper modification of the value in that 
location at load time. This routine builds 
that information on the ADR CONST roll by 
allocating the temporary storage and con- 
stant locations for the area codes and 
displacement values it finds on the LOOP 
CONTROL roll. See Appendix B for further 
explanation of the rolls involved. 



CONVERT TO INST FORMAT, Chart DC 



This routine (G0112) sets up the first 
word (zero rung) of each ARRAY REF roll 
group by testing the contents of the later 
words (the register rungs) of the same 
roll. The result is the skeleton of the 
instruction to be used for an array 
reference. When the second and third words 
of the group point to a general register, 
they are shifted into the appropriate posi- 
tion and inserted into the zero rung. (See 
Appendix B for the configuration of the 
ARRAY REF roll group. ) At each entry to 
this routine, one word is processed and 
that word is cleared to zero before the 
routine exits. 
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Phase 4 of the Com piler: Gen (IEYGEN) 



This routine (G0115) first initializes 
for the processing of one nest of DO loops. 
For each DO loop, a reserve block exists on 
the SCRIPT roll and one group exists on the 
LOOP DATA roll . These blocks and groups 
are ordered so that, reading from the 
bottom of the rolls up, a nest level of one 
indicates the end of a nest of loops; that 
is, for each nest, the bottom block repre- 
sents the inner loop and the top block 
represents the outer loop. 

DO NEST UNIFY serves a control function 
in this phase, arranging information to be 
processed by DO LOOP UNIFY and LEVEL ONE 
UNIFY; it is these latter routines which 
actually perform the optimization of sub- 
scripting by means of register assignment. 
The main result of the optimization is that 
in the initialization code for each loop, 
only that portion of each subscript which 
depends on the DO loop variable is 
computed. 

DO LOOP UNIFY expects to find a reserved 
block on the bottom of the NEST SCRIPT roll 
describing a loop one nest level deeper 
than the loop described by the bottom 
reserved block on the SCRIPT roll. More- 
over, both the block on the SCRIPT roll and 
the block on the NEST SCRIPT roll must 
already reflect the allocation of arrays by 
Allocate; that is, both blocks must have 
been processed by NOTE ARRAY ALLOCATION 
DATA, another routine called by DO NEST 
UNIFY. This arrangement is required so 
that DO LOOP UNIFY can pass information 
from the loop being processed (on the NEST 
SCRIPT roll) to the next outer loop (on the 
SCRIPT roll). 

A special case is made of the reserved 
block describing a loop of nest level one, 
since there is no outer loop to which 
information can be passed. The routine 
LEVEL ONE UNIFY processes in place of DO 
LOOP UNIFY in this case; it expects to find 
the reserved block describing the level one 
loop on the NEST SCRIPT roll. 



IEYROL MODULE 



The IEYROL module is loaded into main 
storage by program fetch, along with the 
Invocation phase and the five processing 
phases. It contains two static rolls (the 
WORK roll and the EXIT roll), roll statis- 
tics, group stats, and the ROLL ADR table. 
Throughout the operation of the compiler, 
it maintains a record of the storage space 
allocated by the control program to the 
dynamic rolls. 



Gen produces object code from the Polish 
notation and roll information left by pre- 
vious phases of the compiler. The code 
produced by this phase appears, one state- 
ment at a time, on the CODE roll , and is 
saved there until it is written out by 
EXIT. 

The following paragraphs, "Flow of Phase 
4," describe the operation of this phase by 
means of narrative and flowcharts. 

The rolls manipulated by Gen are listed 
in Table 6 and are mentioned in the follow- 
ing description of the phase; these rolls 
are briefly described in context. See 
Appendix B for a complete description of 
all of the rolls used in the phase. 



Table 6. Rolls Used by Gen 









|Roll 




Roll 




|No. 


Roll Name 


NO. 


Roll Name j 


1 1 


Source 


24 


Entry Names j 


1 4 


Polish 


25 


Global Dmy j 


1 & 


Fx Const 


34 


Branch Table j 


1 9 


Fl Const 


36 


Fx Ac j 


| 10 


Dp Const 


40 


Temp Pntr j 


| 11 


Complex Const 


42 


Fl Ac j 


| 12 


Dp Complex 


43 


Lbl | 




Const 


44 


Scalar j 


| 14 


Temp 


45 


Data Var j 


| 15 


Do Loops Open 


52 


Loop Control j 


1 15 


Loops Open 


55 


Loop Data j 


1 16 


Temp and Const 


56 


Array Plex j 


| 17 


Adcon 


57 


Array Ref j 


| 18 


Data Save 


59 


At | 


| 22 


Array 


62 


Code | 


| 23 


Dmy Dimension 


63 


After Polish | 


| 23 


Sprog Arg 















FLOW OF PHASE 4, CHART 08 



START GEN (G0491) initializes for the 
operation of the Gen phase. It then calls 
ENTRY CODE GEN to produce the object head- 
ing code and PROLOGUE GEN and EPILOGUE GEN 
for the required prologues and epilogues. 
On return from EPILOGUE GEN, START GEN 
falls through to GEN PROCESS. 

GEN PROCESS (G0492) controls the repeti- 
tive operations of Gen. It first calls GET 
POLISH, which moves the Polish notation for 
one statement from the AFTER POLISH roll to 
the POLISH roll. Using the Polish notation 
just moved, GEN PROCESS determines whether 
the statement to be processed was labeled; 
if it was, the routine LBL PROCESS is 
called. If the source statement was not 
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labeled, or when LBL PROCESS returns, GEN 
PROCESS calls STA GEN and STA GEN FINISH. 
On return from STA GEN FINISH, GEN PROCESS 
restarts. 

The termination of the Gen phase of the 
compiler occurs when an END statement has 
been processed. END STA GEN jumps directly 
to TERMINATE PHASE after the object code is 
produced, rather than returning to GEN 
PROCESS. TERMINATE PHASE is described in 
Chart EG and in the accompanying text. 

ENTRY CODE GEN, Chart EA 



AFTER POLISH roll to the POLISH roll. The 
Polish notation is moved from the beginning 
of the AFTER POLISH roll, and a pointer is 
maintained to indicate the position on the 
roll at which the next statement begins. 

Note : Unlike the other rolls, data from 
the AFTER POLISH roll is obtained on a 
first-in first-out basis (i.e., the BASE 
rather than the BOTTOM pointer is used) . 
This is done to maintain the sequence of 
the source program. 



LBL PROCESS, Chart EF 



ENTRY CODE GEN (GO 49 9) first determines 
whether the source module is a subprogram. 
If it is not, the heading code for a main 
program is placed on the CODE roll, the 
location counter is adjusted, and the rou- 
tine returns » 

If the source module is a subprogram, 
ENTRY CODE GEN determines the number of 
entries to the subprogram, generates code 
for the main entry and for each secondary 
entry and, when all required entry code has 
been produced, it then returns. 



PROLOGUE GEN, Chart EB 



PROLOGUE GEN (GO 50 4) processes the main 
entry and each additional ENTRY to the 
source subprogram, producing the required 
prologues. Prologue code transfers argu- 
ments as required and is, therefore, not 
produced if no arguments are listed for the 
ENTRY. The prologue code terminates with a 
branch to the code for the appropriate 
entry point to the subprogram; in prepara- 
tion for the insertion of the address of 
that entry point, this routine records the 
location of the branch instruction on the 
ENTRY NAMES roll. If the source module is 
not a subprogram, PROLOGUE GEN exits. 



EPILOGUE GEN, Chart EC 



LBL PROCESS (G0493) stores the label 
pointer left on the WORK roll by GEN 
PROCESS in STA LBL BOX. It then inspects 
the LBL roll group defining the label, and 
determines whether the label is a jump 
target. If so, the base register table is 
cleared to indicate that base values must 
be reloaded. 

If the label is not the target of a 
jump, or when the base register table has 
been cleared, the AT roll is inspected. 
For each AT roll entry (and, therefore, AT 
statement) referring to the labeled state- 
ment being processed, made labels are con- 
structed for the debug code and for the 
next instruction in line, pointers to these 
labels are recorded on the AT roll, and an 
unconditional branch to the debug code is 
placed on the CODE roll. 

When all AT references to the present 
label have been processed, an instruction 
is placed on the CODE roll to inform Exit 
that a label was present and that a branch 
table entry may be required. Then, if the 
trace flag is on (indicating the presence 
of the TRACE option in the source DEBUG 
statement) , the debug linkage for TRACE and 
the binary label are placed on the CODE 
roll. If the trace flag is off, or when 
the code has been completed, LBL PROCESS 
returns. 



EPILOGUE GEN (G0508) processes the main 
entry and each additional ENTRY to a sub- 
program, producing the required epilogues. 
Epilogue code returns argument values and 
returns to the calling program. If this 
routine determines that the source module 
is not a subprogram, main program prologue 
and epilogue code are produced. 



SET POLISH, Chart ED 



This routine (G0712) moves the Polish 
notation for a single statement from the 



STA GEN, Chart EG 



STA GEN (G0515) uses the control driver 
left on the WORK roll by GEN PROCESS to 
index into a jump table (STA RUN TABLE) , 
jumping to the appropriate routine for 
constructing the object code for the spe- 
cific type of statement being processed. 
This operation is called a "run" on the 
driver; other "runs" occur in Gen for 
building specific instructions or for 
generating data references. 

The names of the code generating rou- 
tines indicate the functions they perform; 
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for example, assignment statements are pro- 
cessed by ASSIGNMENT STA GEN, while GO TO 
statements are processed by GO TO STA GEN. 
These routines construct the code for the 
statement on the CODE roll and, when the 
code is complete, return to GEN PROCESS. 

END STA GEN processes the END statement 
and provides the normal termination of the 
Gen phase by jumping to TERMINATE PHASE 
after producing the code. The code pro- 
duced for the END statement is identical to 
that for the STOP statement if a main 
program is being compiled or a RETURN 
statement if a subprogram is being com- 
piled. If an AT statement precedes the 
END, an unconditional branch instruction is 
constructed to return from the debug code 
to the main line of code. 

TERMINATE PHASE (GO 54 4) prepares for and 
calls the Exit phase of the compiler. 



Table 7. Rolls Used by Exit 





Roll Number 


Roll Name | 


7 


Global Sprog | 


16 


Temp and Const | 


17 


ADCON | 


20 


CSECT | 


23 


Sprog Arg | 


38 


Used Lib Function | 


45 


BCD | 


46 


Base Table | 


51 


RLD | 


52 


Branch Table | 


58 


Adr Const | 


62 


Code | 





FLOW OF PHASE 5, CHART 09 



STA GEN FINISH, Chart EH 



STA GEN FINISH (G0496) determines wheth- 
er the present statement is the closing 
statement of any DO loops; if it is, this 
routine generates the code required for the 
DO loop closing and repeats the check for 
additional loops to be closed. 

When all DO closings have been pro- 
cessed, STA GEN FINISH resets pointers to 
temporary locations, clears accumulators, 
and returns to GEN PROCESS. 



PHASE 5 OF THE COMPILER: EXIT (IEYEXT) 



Exit produces the SYSPUNCH and/or SYSLIN 
output requested by the programmer, except 
for the ESD cards and TXT card produced by 
the Allocate phase. It also produces the 
listing of the object module on SYSPRINT, 
if it has been requested by the programmer. 

The description of this phase of the 
compiler is divided into two parts. The 
first of these, "Flow of Phase 5," de- 
scribes the overall logic cf the phase by 
means of narrative and flowcharts. 

The second part of the description of 
the phase, "Output from Phase 5, " describes 
the output written by the phase. 

The rolls used by Exit are listed in 
Table 7, and are briefly described in 
context. For further description of rolls, 
see Appendix B. 



The routine EXIT PASS (G0381) controls 
the operation of this phase. After initia- 
lizing, this routine calls PUNCH NAMELIST 
MPY DATA and PUNCH TEMP AND CONST ROLL. 
The routine PUNCH ADR CONST ROLL is then 
called and, if an object module listing was 
requested, the heading for that listing is 
written out. 



After this operation, EXIT PASS calls 
PUNCH CODE ROLL, records the memory 
requirements for the code, and prints the 
compiler statistics. PUNCH BASE ROLL, 
PUNCH BRANCH ROLL, PUNCH SPROG ARG ROLL, 
PUNCH GLOBAL SPROG ROLL, PUNCH USED LIBRARY 
ROLL, PUNCH ADCON ROLL, ORDER AND PUNCH RLD 
ROLL, and PUNCH END CARD are then called in 
order. On return from the last of these, 
EXIT PASS releases rolls and exits to the 
Invocation phase of the compiler. 



PUNCH T EMP AND CONST ROLL. Chart FA 



This routine (G0382) initializes the 
location counter for the temporary storage 
and constant area of the object module. It 
then initializes a pointer to the TEMP AND 
CONST roll and begins the processing of 
that roll from top to bottom. Each group 
on the roll is moved to the output area; 
when the output area is full, a TXT card is 
written. When the entire TEMP AND CONST 
roll has been processed, a jump is made to 
PUNCH PARTIAL TXT CARD, which writes out 
any partial TXT card remaining in the 
output area and returns to EXIT PASS. 
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PUNCH ADR CON ST R OLL, Chart FB 



The information on the ADR CONST roll is 
used by this routine (GO 38 3) to produce TXT 
cards for temporary storage and constant 
area locations which contain addresses. 
RLD roll entries are also produced to cause 
correct modification of those locations by 
the linkage editor. The beginning address 
of the temporary storage and constant area 
is computed. Then, for each ADR CONST roll 
entry, the TEMP AND CONST roll pointer is 
added to that value to produce the address 
at which an address constant will be 
stored. This address is placed in the TXT 
card and on the RLD roll, the address 
constant from the ADR CONST roll initial- 
izes that location, and the area code from 
the ADR CONST roll is placed on the RLD 
roll. (See Appendix B for roll descrip- 
tions. ) 



PUNCH CODE ROLL. Chart FC 



CARD is made; that routine writes out any 
incomplete TXT card which may be in the 
output area, and returns to EXIT PASS. 



PUNCH BASE ROLL, Chart FD 



PUNCH BASE ROLL (G0399) initializes a 
pointer to the BASE TABLE roll and initial- 
izes the location counter to the beginning 
address of the object module base table. 
It then enters each group on the BASE TABLE 
roll into the TXT card output area; it also 
records the object module ESD number and 
the location counter on the RLD roll for 
later production of the RLD cards. 
Whenever the output area is full, a TXT 
card is written. When all groups on the 
BASE TABLE roll have been processed, the 
routine makes a jump to PUNCH PARTIAL TXT 
CARD, which writes out any incomplete card 
in the output area and returns to EXIT 
PASS. 



PUNCH CODE ROLL (G0384) initializes a 
location counter and a pointer to the CODE 
roll. Inspecting one group at a time, it 
determines the nature of the word. If it 
is a statement number, PUNCH CODE ROLL 
simply stores it and repeats the operation 
with the next word. 

If a group is a constant, it is placed 
in the output area for SYSPUNCH and/or 
SYSLIN. This category includes literals 
which appear in-line and, thus, the con- 
stant to be written may occupy several 
groups on the roll. 

Groups representing code are placed in 
the output area and, if an object module 
listing has been requested, the line 
entered into the output area is listed 
before it is punched. The contents of the 
DATA VAR roll are used for the listing of 
the operands. 

If the group on the CODE roll is an 
indication of the definition of an address 
constant, the location counter is stored 
accordingly, and the operation of the rou- 
tine continues with the next group. 

PUNCH CODE ROLL also determines whether 
the group is an indication of the defini- 
tion of a label, if it is, the routine 
defines the label on the BRANCH TABLE roll 
as required, inserts the label in the 
output line for the object module listing 
and repeats with the next group on the 
roll. 

When all groups on the roll have been 
processed, a transfer to PUNCH PARTIAL TXT 



PUNCH BRANCH ROLL, Chart FE 



This routine (GOUOO) first initializes a 
pointer to the BRANCH TABLE roll, and the 
location counter to the beginning location 
of the object module branch table. When 
these operations are completed, the routine 
inspects the BRANCH TABLE roll from top to 
bottom, making the requisite entries on the 
RLD roll and entering the addresses from 
the roll in the TXT card output area. TXT 
cards are written when the output area is 
full. When all BRANCH TABLE roll groups 
have been processed, the routine jumps to 
PUNCH PARTIAL TXT CARD, which writes out 
any incomplete card in the output area and 
returns to EXIT PASS. 



PUNCH SPROG ARG ROLL. Chart FF 



PUNCH SPROG ARG ROLL (G0402* initializes 
a pointer to the SPROG ARG roll and ini- 
tializes the location counter to the begin- 
ning address of the subprogram arguments 
area of the object module. 

The routine then inspects the groups on 
the SPROG ARG roll. If the first word of 
the group contains the value zero (indicat- 
ing an argument whose address will be 
stored dynamically), the group is placed in 
the TXT card output area, and the card is 
written if the area is full. The routine 
then repeats with the next group on the 
roll. 
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If the SPROG ARG roll group does not 
contain zero, the group is then inspected 
to determine whether it refers to a tem- 
porary location. If it does, the correct 
location (address of the temporary storage 
and constant area plus the relative address 
within that area for this location) is 
determined. The required RLD roll entries 
are then made, the address is moved to the 
output area, and PUNCH SFROG ARG ROLL 
repeats this process with the next group on 
the roll. 

If the group from the SPROG ARG roll 
contained neither a zero nor a temporary 
location, the argument referenced must have 
been a scalar, an array, a label or a 
subprogram. In any of these cases, a base 
table pointer and a displacement are on the 
pointed roll. From these, this routine 
computes the location of the variable or 
label or the subprogram address, enters it 
in the TXT card output area, and records 
the RLD information required on the RLD 
roll. The routine then repeats with the 
next group on the SPROG ARG roll. 

This routine exits to EXIT PASS through 
PUNCH PARTIAL TXT CARD when all SPROG ARG 
roll groups have been processed. 



PUNCH ADCON ROLL. Chart FI 



This routine (G0405) returns immediately 
to EXIT PASS if there is no information on 
the ADCON__roll. Otherwise, it writes out 
one TXT~card for each group it finds on the 
roll, obtaining the area code, the address 
constant, and the address of the constant 
from the ADCON roll. The ESD number and 
the address of the constant are placed on 
the RLD roll for subsequent processing. A 
TXT card is punched containing the con- 
stant. The operation of PUNCH ADCON ROLL 
terminates when all groups on the roll have 
been processed. 



ORDER AN D PUNCH RLD ROLL, Chart FJ 



This routine (G0416) sorts the RLD roll 
and processes the groups on that roll, 
producing the object module RLD cards. The 
card images are set up, and the RLD cards 
are actually written out as they are com- 
pleted. When all information on the roll 
has been processed, this routine returns to 
EXIT PASS. 



PUNCH GLOBAL SPROG R OLL. Chart FG 

This routine (G0403) first inverts the 
GLOBAL SPROG rpll and moves one word from 
that roll to the WORK roll. If these 
actions indicate that there is no informa- 
tion on the roll, the routine exits. 

Otherwise, for each group on the GLOBAL 
SPROG roll, this routine enters the ESD 
number for the subprogram and the location 
at which its address is to be stored on the 
RLD roll. The routine also writes a word 
containing the value zero for each subpro- 
gram listed (these words become the object 
module subprogram addresses region). When 
all groups on the GLOBAL SPROG roll have 
been processed, the routine exits through 
PUNCH PARTIAL TXT CARD, which writes out 
any incomplete card remaining in the output 
area before returning to EXIT PASS. 



PUNCH END CARD, Chart FK 



PUNCH END CARD (GO 4 2 4) produces the 
object module END card. It moves the 
required information into the card image 
and initiates the write operation; it then 
returns to EXIT PASS. 



PUNCH NAMELIST MPY DATA, Chart FL 



This routine (G056U) is responsible for 
the punching of TXT and RLD cards for those 
words in the object module NAMELIST tables 
which contain pointers to array dimension 
multipliers. The multipliers themselves 
are placed on the TEMP AND CONST roll. The 
required information is found on the 
NAMELIST MPY DATA roll; when all groups 
have been processed, this routine returns 
to EXIT PASS. 



PUNCH USED LIBRARY ROLL. Chart FH 



This routine (G0404) performs the same 

function for the USED LIB FUNCTION roll 

that the previous routine performs for the 
GLOBAL SPROG roll, thus completing the 
subprogram addresses region of the object 
module. The techniques used for the two 
rolls are identical. 



OUTPUT FROM PHASE 5 



Four types of output are produced by the 
Exit phase of the compiler: TXT cards, RLD 
cards, the object module listing, and the 
compiler statistics. The cards are pro- 
duced on SYSPUNCH and/or SYSLIN, according 
to the user's options. The listing, if 
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requested, is produced on SYSPRINT. The 
compiler statistics for the compilation are 
produced on SYSPRINT. 



The formats of the TXT and RLD cards are 
described in the publication IBM System/ 3 60 

Operating System; Linkag e Editor Program 

Logic M anual. The object module listing 
consists of the following fields: 



• Location, which is the hexadecimal 
address relative to the beginning of 
the object module control section, of 
the displayed instruction. 



Statement number (entitled STA NUM), 
which is the consecutive statement 
number assigned to the source module 
statement for which the displayed 
instruction is part of the code pro- 
duced. This value is given in decimal. 



• Label, which is the statement label, if 
any, applied to the statement for which 
the code was produced. The statement 
label is given in decimal. 

• Operation code (entitled OP), which is 
the symbolic operation code generated. 

• Operand, which is given in assembly 
format but does not contain any vari- 
able names. 

• Operand (entitled BCD OPERAND), which 
contains the symbolic name of the vari- 
able referred to in the source module 
statement which resulted in the code. 



The compiler statistics are the final 
output from phase 5. The formats for the 
messages which provide compiler statistics 
for the compilation are as follows: 

♦OPTIONS IN EFFECT* option{ , option} .. . 
♦OPTIONS IN EFFECT* option! , option} .. . 
♦STATISTICS* SOURCE STATEMENTS=nnnnnnnni, 
PROGRAM SIZE=nnnnnnnn a 

and 

♦STATISTICS* NO DIAGNOSTICS GENERATED 



or 



♦STATISTICS^ nnn DIAGNOSTICS GENERATED, 
HIGHEST SEVERITY CODE IS n 

where : 

nnnnnnnn ± is the number of source state- 
ments expressed as a decimal 
integer. 

nnnnnnnn 2 is the size, in bytes, of the 
object module expressed as a 
decimal integer. 

nnn is the number of diagnostics 
generated expressed as a decimal 
integer. 

n is the condition code. 

The first statistics message (giving 
source statements and program size) is 
suppressed whenever a BLOCK DATA subprogram 
is compiled; however, the two options-in- 
effect messages and one of the other statis- 
tics messages will still appear. 
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Chart AA. OPTSCAN 
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« COMPILER * 



*. NAME= QUOTE 



»#*##C3*********« 

» SET PROGRAM « 

► NAME IN « 

•COMPILER COMM. * 

» AREA * 



»«»*»B5*»»«»« 
->* SET FLAG 



-*. COMMA PRESENT.* 



» SET TO SCAN < 
* ONLY 8 CHAR. « 
•IGNORE ANY OVER* 



• ADVANCE 
►PARAMETER SCAN 
» POINTER 



RESET 

SCAN CONTROL 

FLAGS 

»••••••**••••• 



» OBTAIN « 
» SYSTEM « 
'GENERATED NAME • 
• OR PGM NAME < 
t * 

**•####•••*#*»#»* 



SAVE 

NAME FOR 

MULTIPLE 

COMPILATIONS 



. • PROGRAM 
NAME 
•.SPECIFIED. 



» WAS ». YES 

NAME OPTION .* 

». GIVEN .* 



• COMPARE * 

• PARAMETERS • 
->«SPECIFIED WITH • 

» PARAM TABLE • 



1*»»J1 «*»••*. 

PREPARE 

+ CONVERT 

LINECNT 



r*. IN TABLE .* 
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Chart AB. DDNAMES 



H 



» INSERT 
•ENTRY INTO DCE 
» FOR SYSIN 



MOVE 
POINTER TO 
SIXTH ENTRY 



» OBTAIN 
•LENGTH OF DATA 
» SET NAMES 



• INSERT 
•ENTRY INTO DCB 
» FOR SYSPRT 



ADVANCE LIST 
POINTER TO 
FIRST ENTRY 



» INSERT 
•ENTRY INTO DCS 
» FOR SYSLIN 



MOVE 
POINTER TO 
FIFTH ENTRY 



* INSERT 


•ENTRY INTO DCB 


* FOR SYSPCH 


ft 


»»♦#*#*»•##*»«♦ 


#•»• 




« * 




« H4 »-> 




* # 




• •** 




DDNMOUT 




V 


»**»H4 »»#»#*»» 


ft 


* RETURN 


# 


•»ft»»ftft< 


»•**••• 
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Chart AC. HEADOPT 



*#»#A2********* 
» HEADOPT * 

«• 4 



**»»*B2**** ****** 

# » 

* OBTAIN LENGTH * 

* OF HEADING * 

* OPTION * 

# * 

• it*************** 



♦.HEADING LIST . *- 
*. EXIST .* 

*. • * 
* . .* 
* YES 
I 
I 
I 



»»#»C3********* 

* * 
->* RETURN * 

* 4 



*»#»*02********** 

* # 

* SET UP * 

* CENTERING OF * 

* PAGE HEADING * 

* * 



***»»E2********** 

* « 
*FORCE 119 CHAR * 

* LIMIT FOR * 

* OPTIONAL * 

* HEADING * 



»«***F2********** 

* SET * 
♦HEADING ORIGIN * 
*AND LENGTH INTO* 
*PRINT MSG TABLE* 

* * 



**»*G2********* 
f < 

f RETURN ^ 
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Chart AD. TIMEDAT 



»»#*A2**»*«**«» 

» i 

» TIMEDAT * 



#»*»*B2** ******** 

* SET UP * 

* UNIT * 

* SPECIFICATION * 
•FOR TIME OF DAY* 

* * 
»**#»*»**»»»»•*** 



*»»»»C2********** 

* GET * 

* TIME AND DATE * 

* FROM SYSTEM * 

* SUPERVISOR * 

* • 
♦»»**»»*»»••*»»•• 



»»*#»02********** 

* * 

* INSERT * 

* TIME INTO * 

* HEADING LINE * 

* * 
*•*»*•»»■*»*»•»»*» 



»*»»*E2********** 



* INSERT * 
•DATE INTO LINE * 



*»»**»»»#»»»•«#»» 



I 
V 

•*#*F 2 **•••*••* 

t * 

* RETURN * 

t * 

•»»»•»*»••••*** 
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•Chart 4.1. PHASE 1 - PARSE (Part 1 Of 2) 



G0630 

****A2*** ****** 

* i 

* IEYPAR * 

* 4 
*************** 



*****B2 ********** 



***************** 



******C2*********** 

* READ ONE * 

CARD INTO 

* INPUT AREA * 

************* 



V 
***** 92 ********** 

* TURN ON FLAGS * 

* INDICATING * 
♦FIRST STMT AND * 
♦PREVIOUS PRINT * 

* COMPLETE * 
***************** 



K*** 



* E2 *-> 



**** 
G0631 

****** E2 *********** 

PRT/RD SRC-4.BAA2 

* -*-*-*-*-*-*-** 

PRINT OLD STMT 

* AND ERRORS * 

READ NEW 

************* 



G0632 

*****F2 ********* 

* STA INIT-BBA2 
*-*-*-*-*-*-*-*- 

* INITIALIZE 

* FOR NEW 

* STATEMENT 
**************** 



G0635 

*****G2********** 
*LBL XLATE BCA2* 
*-*-*-*-*-*-*-*-* 

* PROCESS LABEL * 

* FIELD AND * 

* COL 6 * 
***************** 



H2 


*. 


.* LABEL *. 


YES . * OR * . 


r — *. COL 6 .* 


*. ERRORS .* 


1 *. .* 


V *. .* 


**** * NO 


* 




E2 * 




* 




**** 




G0636 


' 


*****J2********** 


♦STA XLATE- BDA1* 


*-*-*-*-*-*-*-*-* 


* PROCESS * 


* ENTIRE * 


* STATEMENT * 


***************** 
1 


1 
**** 


* * 


* BU * 


* * 


* 


*** 



THIS IS THE FIRST 
CARD OF THE FIRST 
STATEMENT. INITIAL 
COMMENTS ARE WRITTEN 
OUT IN THIS OPERATION. 



AT COMPLETION OF 
PRINT AND READ 
SOURCE, STMT TO 
BE PROCESSED IS 
ON SOURCE ROLL. 



G0633 V 

*****Bf|********** 
*STA FINAL- BEA2* 
*-*-*-*-*-*-*-*-* 
♦COMPLT POLISH. * 
♦CLOSE DO LOOPS.* 
* MOVE POLISH. * 
***************** 



.* LAST *. 
NO .* STMT OF *. 
— * . SOURCE MODULE. * 
♦.PROCESSED.* 



. * LAST 
. STMT FLAG = 
* ( END CARD) , 



*****E4 ********** 

* * 

* RECORD * 

* 'NO END CARD" * 

* ERROR MESSAGE * 

* * 
***************** 

**** 



*****F4* ********* 

* * 

* SET INDICATOR * 

* FOR READ * 

* COMPLETE * 

* * 
***************** 



*****Q1| ********** 

♦PRT/RD SRC-BAA2+ 

* -♦-*-*-*-*-*-*-* 
♦PRINT OLD STMT ♦ 

* AND ERRORS. * 

* READ NEW STMT * 
***************** 



*ES .* WAS * 
r — *. THERE AN END 
I *. CARD . * 



.* LAST *. NO 
*.STMT AN ARITH.* -, 



G0844 

*****D5******+*** 
♦PROC POL BGA2* 
*_*_*_*_*_*_*_*-* 

* COPY POLISH * 

* ROLL TO AFTER * 

* POLISH ROLL * 
***************** 



#063003 
YES 



LAST * 
STATEMENT A 
. BRANCH . * 



G06H2 

*****F5* ********* 
♦ACT END ST BFA2* 
*-*-*-*_*-*-*-*- + 

* BUILD * 
♦RETURN OR STOP ♦ 

* POLISH * 
***************** 



G0634 

*****Q5********** 

♦STA FN END BEDb* 
*_*-*-*-*-*-*-*-* 
♦COMPLETE POLISH* 

* WITH STMT CNT * 

* AND MOVE * 
***************** 



**** 
t * 

► H5 *-> 



**** 
tl 06300t 

*****{] 5********** 

* * 

* PLACE * 

* END DRIVER ON * 

* POLISH * 

* ♦ 
***************** 



G0634 

*****j5********** 

*STA FN END BEDb* 
*_*_*_*_*_*_*_*_* 
♦COMPLETE POLISH* 

♦ WITH STMT CNT ♦ 

♦ AND MOVE ♦ 
***************** 



***** 
*0lt»2* 
* B2* 
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• Chart 04.2. PHASE 1 - PARSE (Part 2 of 2) 



***** 

♦0H.2* 
* B2* 



**** 
» 4 

* B3 * 

► 4 
**** 



. * XTEND 
. LBL ROLL 
♦.RESERVED 



**** 
* i 
► C2 * 



**** 
* 063178 

*****C2 ********** 

* * 

* REMOVE * 

* GROUP FROM *< 
*XTEND LBL ROLL * 

* * 
***************** 



XTEND 
LBL ROLL 
. EMPTY 



►. YES * CLEAR RESERVE * 
.* >*MARK FROM XTEND* 

* * LBL ROLL * 

* * 

***************** 



H063188 

*****Di| ********** 

* SET LOOP * 

* DATE POINTER * 
>*ON SCRIPT ROLL,* 

* RELEASE * 

* IND VAR ROLL + 
***************** 



% 063179 



*****F1* ********* 

* 
* 
*<- 

* 
* 
***************** 



REMOVE 

GROUP FROM 

WORK ROLL 



***• 
» * 

* C2 * 
» * 
**** 



.*. 

F2 *. 

.* GROUP *. 

TAGGED AS 

POSSIBLE 

.RE-ENTRY . 

♦.POINT.* 

*. .* 

* YES 



* PUT * 

* GROUP ON TEMP * 

* ROLL ♦ 

* * 
***************** 



. * TEMP 
. ROLL EMPTY 
*. 



*****F3*** ******* 

♦ TAG GROUP AS ♦ 

♦ POSSIBLE ♦ 
♦EXTENDED RANGE * 

♦ CANDIDATE ON * 
♦LOOP DATA ROLL ♦ 
***************** 



*****G3********** 

* TAG THOSE ♦ 

* LABELS ON LBL ♦ 
♦ROLL WHICH MAY ♦ 

* BE RE-ENTRY ♦ 

* POINTS ♦ 
***************** 



♦***+H3* ********* 

* * 

* * 
♦CLEAR TEMP ROLL^ 

* ♦ 

* • 
***************** 

i 

**** 

* • 

* B3 ♦ 

* ♦ 
**** 



1 

***• 

► * 
* B3 « 

> * 
***♦ 



BLOCK 

DATA 

PROGRAM 



*****Qt|********** 

♦ * 
♦SET SYMBOL AND ♦ 
♦MODE FOR IBCOM ♦ 

♦ ROUTINE CALL ♦ 

♦ * 
******•••******•* 



*****HM* *♦♦*♦***♦ 

♦ * 

♦ MOVE IBCOM * 

♦ POINTER TO ♦ 

♦ AFTER POLISH ♦ 

♦ ROLL ♦ 
***************** 



K063001 V 

*****Jt|* ********* 

♦ * 

♦ INITIALIZE ♦ 

♦ FOR OPERATION ♦ 

♦ OF ALLOCATE ♦ 

♦ * 
***************** 



****K4* ******** 

► 4 

► IEYALL « 
* * 

*************** 
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Chart BA. 



WRITE LISTING AND READ SOURCE 



TURN 

OFF MO PRINT 

FLAG 



»-***B4********* 
INITIALIZE 
FOR NEW STMT, 
READ ONE CARD 
* AND PRESCAN * 
STMT 



nnnn 



»** 



#083703 .». 



.MORE TO READ 



SOURCE *. 
LISTING . 
.REQUESTED.* 



****D4 ********* 

WAIT FOR LAST 

READ COMPLETE 

*AND READ ONE * 

CARD 

************* 



READ A CARD 



TURN 

ON NO PRINT 

FLAG 

***** ********* 



****F2 ********** 

INITIALIZE * 

STATEMENT CD * 

COUNT * 



PRINT A CARD 



PRINT 

OF STMT 

.COMPLETE 



* MOVE 1 CD TO * 
->*SOURCE ROLL AND* 

* SET CONTROL * 

***************** 



»****H2********** 

» PRINT ONE * 
CARD AND ITS 
* ERROR MSGS * 



.* END *• YES 

STATEMENT .* 

*. PROCESS .* 



#083704 

*«***J4********** 

* TURN OFF * 

* FLAGS * 

* INDICATING NO * 

* MORE READ AND * 

* NO MORE PRINT * 
***************** 



***»K4 ******* 
t 
* RETURN 

» 
************* 
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Chart BB. INITIALIZE FOR PROCESSING STATEMENT 



G0632 

****A2 ********* 

* i 

* STA INIT * 

* t 
*************** 



*****B2********** 

* * 

* INITIALIZE * 

* CHARACTER * 

* COUNTS * 

* * 
***************** 



*****C2********** 

* * 
*SET CRRNT CHAR * 
*TO FIRST SOURCE* 

* CHARACTER * 

* * 
***************** 



*****D2 ********** 

* SET * 
*COUNT OF SOURCE* 
•STMT CHARACTERS* 
*TO NO. CARDS X * 

* 80 * 
***************** 



*****E2 ********** 

* * 

* * 

* CLEAR FLAGS * 

* * 

* * 
***************** 



****F2********* 
» * 

*■ RETURN * 

* * 

*************** 
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Chart BC1. PROCESS LABEL FIELD (Part 1 of 2) 



STATUS CONTROL 



G063S 

****A2********* 

♦ LBL FIELD XLATE* 

* * 
*************** 



*****B2**** ****** 

* SAVE ADDRESS ♦ 

* OF CURRENT * 
♦BOTTOM OF WORK * 

* ROLL AND EXIT ♦ 

* ROLL * 
***************** 



*****C2********** 
♦SET STMT LABEL ♦ 

* POINTER TO * 

* AND SKIP TO ♦ 
♦FIRST NON-BLANK+ 

* CHARACTER ♦ 
***************** 



. ♦ CHAR 
. COUNT LESS 
*, THAN 6 . 



*****E2*^**^***** 



<b 063503 



D3 



*. 



.♦ MUST THIS ♦. NO 

*. STMT HAVE .♦ 1 

♦. LABEL •♦ V 

*. .♦ ***** 

*. .* ^02^ 

♦ YES * C2^ 

* * 



*****E3********** 



♦ INITIALIZE 

♦ FOR DIGIT 

♦ CONVERSION 

♦ 


• 
* 
* 
* 


* LABEL MISSING * 

♦ MESSAGE TO ♦ 

♦ ERROR ROLL ♦ 

* * 


***************** 


***************** 


**** 






I 


* * 






1 


* F2 ♦-> 

* * 






V 

***** 


**♦♦ 
11063501 






♦ BC2 + 

* C2* 



CONVERT ONE DIGIT 



REGISTER LABEL 



*****G2 ********** 

♦ CONVERT ♦ 

♦ ONE DIGIT TO ♦ 
♦BINARY. SKIP TO^ 
♦NEXT NON-BLANK ♦ 

♦ CHARACTER ♦ 
***************** 



.♦ CHAR ♦. 
. COUNT LESS . 
♦ . THAN 6 .♦ 



*****J2***» ****** 

♦ MOVE LABEL ♦ 
♦TO LBL ROLL AND+ 

: 'Bfmot 8 : 

♦ POINTER ♦ 

***************** 



♦ *♦* 
t * 
» F2 * 
» 4 

**** 



V 

. *. 

K2 ♦. 

.* *, 

.♦ LABEL ♦. NO 

♦. UNDEFINED .♦ 

♦ . .* 

*. .* 
♦ i .♦ 
♦ YES 



***** 
*BC2* 
* A2* 

* * 



V (SYNTAX FAIL) 

*****G3 ********** 

♦ SYNTAX ♦ 

♦ MESSAGE TO ♦ 

♦ ERROR ROLL. ♦ 

♦ RESTORE WORK ♦ 
♦AND EXIT ROLLS ♦ 
***************** 



****H3********* 

» RETURN * 

► (EXIT FALSE) * 
» * 

*************** 



*****K3 ********** 

♦ MULTIPLE ♦ 

♦ DEFINITION ♦ 
>* ERROR Mg2 TO * 

♦ ERROR ROLL ♦ 

♦ * 
***************** 



***** 

*BC2* 

♦ A2 + 

* • 
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• Chart BC2. PROCESS LABEL FIELD (Part 2 Of 2) 

***** 

*BC2* 
* A2* 



MARK 

LABEL AS 

DEFINED 



***** 
*BC2* 
* C2* 



.* . 
2 ♦. 

*. 
IN A *. YES 


.*. 

B3 ♦ . 
.* INNER *. 
.* DO *. NO 


♦ ****BI»******** 
* 

* PUT LABEL 


.* 


*. ON .♦ 


♦XTEND LBL ROLL 



PROCESS POLISH 



NON- ACTIVE END 
FLAG INDICATES 
PREVIOUS STMT 
ALWAYS BRANCHES 
WHEN IT IS ON. 
USED IN TEXT FOR 
GENERATION OF 
CODE FOR END STMT. 



R06350H 



NO .* LAST *. 

♦.STMT AN ARITH.* 

*. IF .* 



*****Q2********** 
*POT POINTER TO • 

* THIS LABEL. * 
♦MOVE POLISH TO ♦ 

* AFTER POLISH * 

* ROLL * 
***************** 



#063505 

*****£2********** 

♦SET NON-ACTIVE ♦ 
♦END FLAG TO NXT+ 

♦ STA LBL FLAG ♦ 
♦AND CLEAR NEXT ♦ 

♦ STA LBL FLAG ♦ 
***************** 



.♦. 
C3 ♦. 

.♦ IS ♦. 

. ♦ LABEL ♦ . 

. PREVIOUS . ♦<- 

♦. TARGET .♦ 

♦ . .♦ 



*****q3 ********** 

♦ TAG GROUP ON ♦ 
♦XTEND LBL ROLL ♦ 

-♦ AS POSSIBLE ♦ 
♦RE-ENTRY POINT ♦ 

♦ * 
***************** 



*••*****••••*•**• 



CO ♦. 
♦ IS ♦. 
LABEL ON 
rEND TARG 

LBL 
♦.ROLL .♦ 
♦ , .♦ 
♦ YES 



D<4 ♦. 
.♦ GROUP ♦. 

?AGGED AS 
OSSIBLE 
.RE-ENTRY . 
♦ .POINTS 

"♦'no 



• ****£t|********** 

• ♦ 

♦ REMOVE GROUP ♦ 
-♦ FROM ♦<- 

♦XTEND TARG LBL ♦ 

♦ ROLL ♦ 



•****D5* ********* 

♦ TAG GROUP ON ♦ 
♦XTEND LBL ROLL ♦ 

->♦ AS POSSIBLE ♦ 
♦RE-ENTRY POINT ♦ 

♦ ♦ 
**♦♦♦»*♦♦♦*♦**•♦♦ 



.♦ ♦. 
* CHAR ♦. NO 
COUNT . ♦ 



6 .♦ 
. .♦ 

♦ YES 



G2 



* . 



♦. CHAR A ZERO 
♦ . .♦ 

♦ . .♦ 
♦ . .♦ 
♦ NO 



V (SYNTAX FAIL) 

*****H2**** ♦***♦♦ 

♦ SYNTAX MSG TO ♦ 

♦ ERROR ROLL. ♦ 

♦ RESTORE WORK ♦ 
♦AND EXIT ROLLS ♦ 

♦ ♦ 
***************** 



*****J2 ********** 

♦ SCAN ♦ 

♦ TO NEXT ♦ 

♦ NON-BLANK ♦ 

♦ CHARACTER ♦ 

♦ ♦ 
***************** 



****F3********* 

► RETURN * 

► (EXIT TRUE) * 

► * 
*************** 



•***G3********* 
♦ RETURN * 

► (EXIT TRUE) * 

► * 
*************** 



****K2********* 

* RETURN « 

* (EXIT FALSE) « 

* 4 
*************** 
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Chart BD. PROCESS STATEMENT 



G0636 

* « 

* STA XLATE « 



* * 

* RETURN * 
t « 



•ASSIGNMENT STA « 
* XLATE * 



* SAVE « 
>« LOCATIONS OF *- 

* WORK AND EXIT « 

» * 



» RECORD « 

» ILLEGAL « 

» STATEMENT * 

* MESSAGE * 

* * 



.» ASSIGN- 
• MENT TYPE 
*. STATEMENT. 



->*.STMT FUNCTION. »- 



» CONSTRUCT * 

» POLISH FOR * 

» VARIABLE * 

» EXPRESSION » 

» * 



ARITH FUNC 
DEF STA 
XLATE 



»**##D3*#******** 

* UPDATE ROLL » 

* AND CONSTRUCT » 

* POLISH FOR * 

* FUNCTION » 

* * 



SCAN STMT » 

TO DETERMINE * 

TYPE * 



ft####C4********** 

* UPDATE ROLLS * 

* AND/OR * 

* CONSTRUCT » 

* POLISH FOR * 

* STATEMENT » 



LITERAL TEST 



THIS OPERATION 

IS PERFORMED BY 

THE STA XLATE 

ROUTINES 



STA XLATE EXIT 



*. SEVERE ERRORS. *- 



####E4********* 
» * 

» RETURN * 



*###F4********* 

* # 

* RETURN * EXIT 

t * 



***»*G3**»**»**»* 

* * 

* REMOVE POLISH * 

* AND REPLACE * 
*WITH ERROR LINK* 

* • 



•***H3* *##*»*## 
» « 

» RETURN * 
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►Chart BE. COMPLETE STATEMENT AND MOVE POLISH 



G0633 

**+*Al ********* 

* 4 

* STA FINAL 1 

* 4 
*************** 



*****B1 ********** 



***************** 



CI *. 
.* *. 
* 
ANY POLISH 



****C2********* 

* * 
->* RETURN * 

* * 
*************** 



THIS FLAG ON INDICATES 
ONE OF THE STATEMENTS 
WHICH MAY NOT TERMINATE 
DO LOOPS 



* . JUMP FLAG ON 



**** 

* * 

* El *-> 



«063301 



.* DATA ON *. 
.THE DO LOOPS . 
+.OPEN ROLL.* 



* MOVE GROUP * 

* BACK TO DO * 
* LOOPS OPEN ROLL* 

* * 
***************** 



***** 
♦ BE * 
*D5 * 



*****D4 ********** 

* * 

* PUT POINTER * 

* TO LABEL ON *- 

* POLISH * 

* * 
***************** 



STA FINAL END 
G0634 V 

*****D5* ********* 

* * 

* PUT STMT * 
>* NUMBER ON * 

* POLISH * 

* + 
***************** 



.* THIS STMT *. 

.AN ARITHMETIC. 

* . IF . * 



****E5********* 

t 4 

► RETURN 4 
t * 

*************** 



*+***Fl ********** 

* * 

* MOVE ONE * 

* GHOUP OFF THE * 

* ROLL * 

* * 
***************** 





* THIS 


* 


. STMT TARGET 




*. OF LOOP . 


SEE 


*. . * 


NOTE 


* . .* 



**** 

» 4 

* BK * 

» 4 
**** 



THE TEST COMPARES 
STA LBL PNTR 
WITH THE GROUP 
FROM THE ROLL 



INNER 
DO CLOSED 
. FLAG 



U063388 

***+*H2**** ****** 

* REMOVE * 
*GROUP DEFINING * 

* DO VARIABLE * 

* FROM IND VAR * 

* ROLL * 
***************** 



*****J2********** 
♦RESERVE PROGRAM* 

♦ SCRIPT ROLL, + 

♦ COPY SCRIPT + 

♦ ROLL, RELEASE ♦ 

♦ SCRIPT ROLL * 
♦♦♦♦♦♦♦*♦**♦♦♦♦♦♦ 



*****K2 ********** 
♦MOVE NEXT GROUP* 

* FROM SCRIPT * 

* ROLL TO LOOP ♦ 
♦DATA PNTR, READ* 

* NXT LVL COUNT ♦ 
********♦♦♦♦♦♦♦♦* 



***♦* Ft ****♦♦***+ 

♦ ♦ 
♦MOVE POLISH FOR^ 

♦ STMT TO AFTER *- 

♦ POLISH ROLL ♦ 

♦ * 
***************** 



.* ANY *. NO * CLEAR * 

->*. TRANSFERS OUT.* >*XTEND LBL ROLL * 

*. OF LOOP .* * * 

*. . ♦ ♦ ♦ 

♦. .* ***************** 



+*+**H3 ********** 

* * 

* CLEAR * 
+ XTEND TARGET ♦ 

* LBL ROLL ♦ 

* * 
***************** 



♦***F5* ******** 

► 4 

* RETURN * 

» * 

*************** 



************** 
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Chart BF. PROCESS END STATEMENT 



»##»A2********* 

I- 4 

» ACTIVE END * 

* STA XLATE * 



.» ». *»**B3***»****» 

.* LAST *. YES * * 

*. STATEMENT A .* >* RETURN * 

*. BRANCH .» * * 



C2 *• **#*»C3*»******** 

.* * . * * 

.•SUBPROGRAM *. NO * BUILD » 

►. BEING .* >* STOP POLISH * 

♦.COMPILED .* * * 

*. .* * * 



V I 

*»*»*D2********»* V 

* * *#»#D3*»******* 

* PLACE * * * 

* RETURN DRIVER * >* RETURN * 

* ON POLISH * * * 
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Chart BG. PROCESS POLISH 



G0844 

«»**A2 ********* 

* PROCESS * 

* POLISH * 



»#»»*B2 ********** 

* # 

* GET NUMBER * 

* OF WORDS ON * 

* POLISH ROLL * 

* * 

* it*************** 



**»**C2 ********** 

* * 

* PLACE * 
•COUNT ON AFTER * 

* POLISH ROLL * 

* * 



»*#**D2 ********** 

* * 

* COPY POLISH * 

* ROLL TO AFTER * 

* POLISH ROLL * 
» * 
«***#*«»*»******* 



#«»**E2********** 



♦RELEASE POLISH * 
* ROLL * 



♦ft*************** 



I 

V 

»***F 2 ********* 

* RETURN * 



7U 



Form Y28-6638-1 

Page Revised 7/23/69 by TNL Y28-6829 

• Chart 05. PHASE 2 - ALLOCATE (Part 1 of 2) 



♦♦♦♦Al ********* 

► START * 

► ALLOCATION * 
» « 

*************** 



•****B1********** 



INITIALIZE 



***************** 



.G0543 V 

***** C 1********** 

♦A LBL/LSPG-CAA1* 
*-•-•-*-•-*-•-•-• 
♦PUT LABELS AND * 
•STMT FONC NAMES* 
• ON BCD ROLL ♦ 
***************** 



60362 

*****D1********** 

*PR EQ/PTER-CBA1* 

*!.•-•_*.. 4-*-*-*-* 

♦CALC EQ OFFSETS* 



.*. 
El *. 

.* *• 
. * BLOCK DATA *. NO 

*. SPECIFIED .♦ 

*. .♦ 

*. . * 
*. .* 
* YES 



****D1********* 
► CHART CC ♦ 
* Al * 

*************** 
60361 
BLOCK 
DATA 
PROG 
ALLOCATION 



60365 V 

*****C2********** 
♦DMY/PNTERR-CDA2* 
•-•-•-*-*-*-*-*-• 
•ASSOCIATE DUMMY* 
•DIMS WITH ENTS, * 
* PRINT ERRORS * 
••*****•••******• 



G0371 

*****P2*** ******* 
*PRC DO LPS-CEA2* 
•-*-*-*-•-•-*-*-• 
•CHECK FOR UNCLS* 
•DO LOOPS AND PR* 
♦AND MARK ERRS • 
**•*•**•****•***• 



G0372 

*****E2********** 
•LBL/L SP6S-CFA2* 
•-•-•-•-•-•-*-*-* 

* CONSTRUCT * 

* BRANCH TABLE * 

* ROLL * 
***************** 



G037H V 

*****F2********** 
*BL P6M ESD-CGA2* 
*-*-*-*-*-*-*-*-* 
* ALLOC HEADIN6 * 
♦BLD AND PCH ESD* 
♦FOR PRO AN ENT * 
***************** 



G0376 

*****Q2********** 

•ENT NMALL-CHA2 • 
•-•-*-*-*-•-•-•-• 
* IF SOURCE A • 
•FDNC, CHECK FOR* 
•ASGM OF VALUE • 
••******•***•**** 



*****H2*«* •**♦*** 

• • 

• SAVE OBJECT * 
•MODULE LOCATION* 

♦ COUNTER * 

* • 
••*•********•**** 



60377 

f*****J2********** 
*CM ALL/OUT-CIA2* 

***************** 

•ALLOC CM STGf, *-- 

•mnaun : 

***************** 



G0381 

•••••A3********** 

♦ EQ AL PTER-CKA2^ 
•-•-•-*-•-•-*-•-• 

— >* ALLOCATE ADDR • 
♦FOR EQUIV PRINT* 

• ERRORS * 
*•*•*•**•***•**** 



• FOR PASS 1, * 
•RESTORE OBJECT * 

• MODULE LOC • 

• COUNTER ♦ 
•••***•*****•**•• 



*****C3********** 

* DETM PRESENT * 
♦SIZE BASE TABLE* 
♦ADD 5 GROUPS TO* 

* SIZE. RESERVE * 

* ROLL * 
**********•**••*• 



•****D3********** 

* INDICATE * 

♦ PRESENT ♦ 

• ALLOCATION IS * 

* IN OBJECT * 

• MODULE * 
****•**•*•******• 



G0l»37 V 

*****E3********** 
♦B/B TBL AL-CLA2* 
•-•-*-•-•-•-*-*-* 
•USING SIZE EST.* 
•ALLOC SAVE AREA* 
* BASE TBL. BRT * 
***************** 



*****f>3********** 

* * 

* INCREASE * 
•LOCATION COUNT * 
♦BY EQUIV SIZE ♦ 

*•••***•****••*** 



G0K38 

•****G3******.**** 
♦BLD AD BS-CHA2 * 
*-•-*-*-*-•-•-•-* 

• BUILD BASE * 

* TABLE ENTRIES • 

♦ INDICATED * 
*•****•*•***•*•*» 



60HH3 7 

*****B3********** 

•PREP NMLST-CQA2* 
»-*-•-*-•-*-•-*-• 

• ALLOC NAME- * 

* LIST TBL ADD • 
•BASES REQUIRED * 
•********f ******* 



G0397 V 

•****J3********** 
♦SCALAR ALL CUA1* 
*-*-*-•-•-*-•-*-* 

* ALL ALLOC * 

* SCALARS AND * 

* REG'D BASES • 
***************** 



L 



G0U01 V 

*****B4*** ******* 

•ARRAY ALL CNA2 ♦ 
•-*-*-•-•-*-*-*-* 
•ALLOCATE ARRAYS»- 

• AND ADD REQ'D * 

* BASES • 
*••*•*•••••••**** 



THE ROUTINES 
CALLED IN PASS 
1 DETERMINE 
THE NUMBER OF 
BASE TABLE 
ENTRIES 
REQUIRED 
FOR THE 
OBJECT MODULE 
DATA, AS 
HELL AS PER- 
FORMING SOME 
INITIAL 
ALLOCATION 



G0402 

*****B5* ********* 

♦GBL SPG AL-CDA2* 
*-*-*-•- *_*-*-•-* 

>* ADD BASES FOR ♦ 

* SUBPROGRAM ♦ 

* ADDRESSES * 
•*****•***•*•••*• 



G0D42 V 

*****C5********»* 
•SPG ARG AL-CPA2* 
*-•-•-*-•-•-*-*-• 

♦ •ALLOCATE* ARG ♦ 

* LISTS. ADD * 
•REQUIRED BASES * 
••••********••*** 



G0HHH 

*****D5********** 
♦LIT CNS AL-CRA2* 
A-*-*-*-*-*-*-*-* 

* ALLOC LITERAL * 

♦ CONSTANTS ADD ♦ 
•BASES REQUIRED * 
•••******•******* 



G0«l»5 V 

*****E5********** 

•FORMAT ALL CSA2* 
*-*-*-*-•-•-*-♦-* 

* ALLOC FORMAT * 

* STMTS. ADD * 

* REQ'D BASES * 
•**•$•*•*•**•**** 



*****p5********** 
•RESTORE DBT MOD* 
•LOC CNTER DETM * 
•TRUE SIZE BASE • 
•TABLE, END PASS* 
* 1 ♦ 
**•**••••*•••***» 



*****QI|********** 

•DEBUG ALL-CXA2 • 
♦-•-*-•-*-♦-*-•-• 

• MARK INIT AND ♦- 

• SUBCHK • 

• VARIABLES * 
•••*•**•*******•* 



GO* 03 

*****Blt ********** 
•GBL SPG AL CUA2* 
•-•-*-*-*-*-*-*-* 

♦ ALLOC SUBRTN ♦< 
♦ADDR PRINT MAP ♦ 

♦ PUNCH ESDS ♦ 
•*•***•**•**•**** 



G0H42 

*****jlt********** 

•SP ARG ALL CPA2* 
A-*-*-*-*-*-*-*-* 

* ALLOCATE *- 
•ARGUMENT LISTS • 

* • 
*••••*•••*****•*• 



•****Q5* ••••••*•* 

♦ ASCLR/SPRG- CAA3 * 
*_•-•-*.•. *_*-•-*-* 

->*ENTER NAMES ON * 

* BCD ROLL * 

* • 
a**************** 



G0%37 

*****H5« ***•••*•• 

*B/B TBL AL-CLA2* 

•-*-*-*-*- *-•-•-* 

*ALLOC SAVE AREA* 

* BASE TBL AND * 

• BRANCH TABLE ♦ 
***•*•***•*•***•• 



GO » HI 

•****j5********** 
♦EQUIV MAP CTA2 ♦ 
♦-•-*-•-*-*-*-*-* 

>♦ CORRECT ALLOC ♦ 

♦EQUIV DATA AND • 
* PRINT MAP * 
****•*•••****•••» 



♦***K5********* 
J CHART 0| 2 J 

********•*••*•• 
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• Chart 06. PHASE 2 - ALLOCATE (Part 2 of 2) 



• 06 * 

• B2 ♦—■ 1 

• ••* I 
197 V 



G0397 

*****I)2* ********* 
•SCALAR ALL CMA1* 
*-•-•-•-*-•-*-•-• 
•CORRECT SCALAR * 
* ALLOCATION, * 



G0401 

•****C2********** 
•ARRAY ALL CMA2 * 
•-•-•-•-•-•-•-*-• 

* CORRECT ARRAY * 

* ALLOCATION, * 

* PRINT MAP * 
•ft*************** 



G0H05 

*****D2* ********* 

♦ ElLD NMLST-CVA2 * 
*.•-•-*-•-•-*-•-• 

♦CONSTR AND PCH * 

* TXT CDS FOR * 

• NAMELIST TBL * 
***************** 



G014% 

*****E2********** 
♦LIT CNS AL-CRA2* 

♦.,♦-*_*_*_*_»_*_* 

• ALLOC LITERAL * 
•CONS AND PUNCH * 

• TXT CARDS * 
***************** 



G0««!i 

*o***F2* ********* 
•FORMAT ALL CSA2* 
»..♦_♦_*_*_*-*_»_ + 

•ALLOCATE FORMAT* 

* STMTS, PONCH * 

* TXT CARDS * 
*o*************** 






•****Bt ********** 
•RELEASE ROLLS, • 

• OBTAIN * 

• DOUBLEWORD * 

• BOUNDARY FOR * 

• BASES * 
***************** 



•••••CM********** 
•CALCULATE BASE * 
•AND DISPLACEHNT* 

* FOR TEMP AND * 

* CONST ROLLS • 

* • 
*••*•*•*•****•••* 



G0438 V 

*****£)H********** 

•BLD AD BS-CWA2 * 
•-A-*-*-*-*-*-*-* 

• BUILD 3 BASES * 

• FOR TEHP AND • 

• CONST AREA • 



*****EH ********** 



***************** 



****fH********* 

* « 

* IEYUNF * 

* * 
*************** 
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Form Y28-6638-1 

Page Revised 11/15/68 by TNL Y26-6826 

• Chart CA, MOVE BLD NAMES TO DATA VAR ROLL 



* ALPHA * 

> LBL AND L * 

> SPROGS * 
*************** 



♦♦♦**B1 ********** 

* RELEASE DATA * 

* VAR ROLL. SET * 

* OP POINTER TO ♦ 

* NEW GROUP ON ♦ 

* DATA VAR ROLL.* 
***************** 



*****C1**** ****** 

* SAVE POINTER ♦ 

* TO LABELS. * 

* SET UP * 

* POINTER * 

* TO LBL ROLL. * 
***************** 



**** 
t « 
► Dl « 
» 4 

**** 



Dl *. 
.* *. 
.* ENTIRE ♦. YES 

. LBL ROLL ,♦ 

♦.PROCESSED.* 
*. .* 
*. .* 
NO 



*****e:l**** ****** 

* * 

♦MOVE NEXT LABEL* 

* TO * 

* DATA VAR ROLL ♦ 

* * 
***************** 



**** 

* * 

* Dl * 

* * 
**** 



ALPHA L SPROG 
*****D2 ********** 

* SAVE DATA VAR * 
♦ROLL POINTER AS* 

->* POINTER TO * 

* STATEMENT ♦ 

* FUNCTIONS ♦ 
***************** 



*****£2********** 

* * 

* SET UP * 

* POINTER ROLL * 

* * 

* * 
***************** 

I 

**•* 

* * 

* Gt * 

* * 
**** 



****A3 ********* 

* ALPHA * 

* SCALAR ARRAY « 

* AND SPROG * 
*************** 



*****B3********** 

* SAVE * 

* DATA VAR ROLL * 

* POINTER AS * 

* POINTER TO * 

* SCALARS * 
***************** 



*****C3 ********** 

* * 

* SET UP * 

* POINTER TO * 

* SCALAR ROLL * 

* * 
***************** 



*****D3 ********** 
*A/D VAR RL-CAF4* 
*-*-*-*-*-*-*-*-* 
* MOVE * 
♦SCALAR NAMES TO* 
♦DATA VAR ROLLS ♦ 
***************** 



*****£ 3********** 

* * 

* SAVE DATA VAR * 
♦ROLL POINTER TO* 

* ARRAYS * 

* * 
***************** 



*****F3********** 

* * 

* SET UP ♦ 

* POINTER TO ♦ 

* ARRAY ROLL ♦ 

* * 
***************** 



*****G3 ♦♦♦♦****** 
*A/D VAR RL-CAF4* 
*_*_*_*_*_*_*_*_* 

* MOVE ♦ 
♦ARRAY NAMES TO * 

♦ DATA VAR ROLL ♦ 
***************** 



*****H3 ********** 

♦ SAVE DATA VAR * 
♦ROLL POINTER AS* 

♦ POINTER TO ♦ 

♦ GLOBAL ♦ 

♦ SUBPROGRAM ♦ 
***************** 



*****j3* ********* 

* * 
*SET UP POINTER * 

* TO GLOBAL ♦ 

* SPROG ROLL ♦ 

* * 
***************** 



**** 

* * 

* BH * 

* * 

**** 



*****B1»* ********* 
*A/D VAR RL-CAF4* 
*-*-*-*-*-*-*-*-* 
♦MOVE SUBPROGRAM* 

♦ NAMES TO ♦ 

♦ DATA VAR ROLL ♦ 
***************** 



*****C1»* ******♦♦♦ 

* SAVE DATA VAR ♦ 
♦ROLL POINTER AS* 

* POINTER TO * 

* USED LIBRARY * 

* NAMES * 
♦***♦♦♦♦♦♦♦****** 



*****DI(********** 

* * 
♦SET UP POINTER ♦ 

♦ TO USED LIB ♦ 

♦ FUNCTION ROLL ♦ 

* * 
***************** 



**** 

* * 

* GU * 

* * 
**** 



****F(t********* 

* ALPHA TO * 

* DATA VAR ROLL * 

* * 
*************** 



ENTIRE 

ROLL 

.PROCESSED. 



****G5********* 

* 4 

->* RETURN « 

* i 
*************** 



*****HCf ********** 
♦MOVE NEXT NAME ♦ 

♦ (8 BYTES) ♦ 

♦ TO ♦ 

♦ DATA VAR ROLL ♦ 

♦ ♦ 
***************** 
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Chart CB. PREPARE EQUIVALENCE DATA 



PREP EQUIV 

AND PRINT 

ERRORS 

************ 



.EQUI VA LENCE 
*• DATA • 



**** A3** *****»» 
* * 

» RETURN * 

*************** 



****B2********** 

CALCULATE * 

OFFSET FOR * 

EQUIVALENCE * 

VARIABLE AND * 

RECORD * 

**************** 



. * ALL *. 

DATA 
PROCESSED 



► **E2 ********** 

SET UP * 
HEADING FOR * 
ERROR LIST * 

* 
*************** 



EQUIVALENCE 
* DEF ERRORS 



*G2***** 
RETURN 



**C3 ********** 



********* 
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Chart CC. ALLOCATE BLOCK DATA 



G0361 

**«*A1********* 

» BLOCK OATA »- 
•PROG ALLOCATION* 

•*••»*»*•*♦•»•» 



»-»—#—•—»-»—»—•- 

->» ALLOC ALL COM 

•STRG.PRNT ERRSt 

•MAPS PNCH ESDS 

•••••••••••••••I 



••••••B2**»*»«** 

* PUNCH 

REMAINING 
* ESDS IF ANY 



•ALLOC SCALARS. 

* ADD REQUIRED 

• BASES 

••*••••#•*••*•* 



•ALLOCATE ARRAYS* 

* AND * 

* REO. BASES * 



•••••E2****** v# ** 

• * 

• FLIP * 

• EQUIVALENCE • 

• ROLL « 

• • 
•••••••*••••••••• 

**•• 

• * 

• F2 •-> 



.* INFO •• 
» GROUP ON * 

EQUIVALENCE 
». ROLL .« 



»*»*F3»*«»****** 

* 

RECORD * 

NAME + ERROR • 

TYPE » 



BECAUSE 
ALL EQUIV 
OATA MUST 
BE IN COMMON 



PRINT 

BLOCK DATA 

ERRORS 
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Chart CD. PREPROCESS DUMMY DIMENSIONS 



PREP OMY DII. 

AND PRINT 

ERRORS 



INITIALIZE 
POINTER TO 
APPRO ROLL 



* C2 *-> 

# * 

#036601 



ALL 

ARRAYS 
.PROCESSED. 



ANY 
GLOBAL 
DUMMIES 



-> PRINT ERRORS 



.» NEXT #. 
•ARRAY HAVE 

DUMMY 
•DIMENSIONS. 



• END 

OF A DUMMY 
». LIST 



RECORD MARKER * 
ON NAMELIST * 
ITEMS ROLL * 



ARRAY 
V DUMMY OR 
. INCOMMON . 



l.t.E3»<"«» »**« 

CLASSIFY NXT 

OMY IF ANY 
WITH DMY DIM 
PNTR TO ARRAY 
ON ERROR ROLL 
*##*•#*#*»#»*»« 
I 



E4 *. 
.* ANY *. 

.•MORE ARRAYS* 
.WITH DMY DIM 
*. IN THIS .» 
•.LIST .* 

"» YES 



MORE 

DUMMY 

LISTS 



i RECORD 

« ARRAY NAME AS 

« ERROR 


n. .....*. *.*.... 


»«*» 








« G2 »-> 




#36602 \ 
*»***G2* 

» PREP 
•TO PROCf 

• ARF 


1 


'ARE 

SS NEXT 
JAY 



m*#*F4 »«*««•**« 
» CHECK DMY DIM 
•NXT ARRAY-MUST 
»6E DMY IN SAME 
•LIST OR IN COM- 
» MON RCD ERR'S 
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Chart CE. CHECK FOR UNCLOSED DO LOOPS 



*»*»A2 ********* 
* PROCESS * 

► DO LOOPS * 

t * 



*****B2********** 

* * 

* FLIP THE * 

* DO LOOPS OPEN * 

* ROLL * 

* * 

• #•• [ 

* * I 

* C2 *-> 

* * I 
*»** v 

#037101 .*. 

C2 *. 
.* DATA *. 
.* ON THE *. NO 

*.DO LOOPS OPEN.* 

*. ROLL .* 



*. 



*. • * 



#037102 

#****C3********** 



*SET UP HEADING * 

->* FOR DO LOOPS * 

* ERROR LIST * 



****»**»*♦#***»♦* 



»»*#*D2** ******** 

* * 

* MOVE BAD * 
*LABEL TO ERROR * 

* LBL ROLL * 

* • 



***#*#D3*********** 



PRINT 
DO ERROR LIST 



♦*»******»*♦* 



PRINT ERROR LBL 
ROLL 



E2 *. 
.* UNDE- *. 

.*FINED MARK *. YES 
►. ON LBL ROLL 



.-— , 



(• 1 

* RETURN * 

f i 



* • 

* C2 * 

* » 
• •** 



***»*F2 ********** 

* • 

* SET UNCLOSED * 
*DO MARK IN LBL * 

* ROLL GROUP * 

* * 
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Chart CF. CONSTRUCT BRANCH TABLE ROLL 



COPY 

TEMP ROLL TO 

LBL ROLL 



* * 

* C2 *-> 

#037201 



» DATA 

ON THE LBL 
». ROLL 



•SET UP HEADING 
* FOR UNDEFINED 
» LABELS 



MOVE 

LABEL TO WORK 

ROLL 



PR I NT 

UNDEFINED 

LABEL LIST 



*#»*E3«* «#**»*• 

SET FIRST 1/2 
BYTE OF LABEL 
GROUP TO ZERO 



► FLIP * 
•THE LOCAL SPROG< 
• ROLL » 



•»»»#F2 •*»»»»»»« 

» CLEAR 

» FIRST BYTE OF 

• LABEL 

• GROUP-MOVE TO 
►ERROR LBL ROLL 



.* DATA «. 

.« ON THE * 
►. LOCAL SPROG 
». ROLL . » 



***##F5********** 
' COPY THE « 

> COMMON DATA * 
» TEMP ROLL TD « 
•THE LOCAL SPROG« 

► ROLL « 
HJ**####*###»##*« 

I 



MOVE NEXT 

GROUP TO 

CENTRAL AREA 



# 


* 1 




* 


H3 »->| 




* 


....* 1 




#037203 V 






»»»*H3»* 


*****«# 


*MAKE NEW 


BRANCH 




TABLE 


»OLL 




ENTRY 


ANO 




RETURN 


PTR 


* 


TO 


IT 



••••*H4 »#*»*»»*** 
•MAKE NEW BRANCH* 

• TABLE ROLL « 

• ENTRY AND * 
» RETURN PTR • 

• TO IT * 



THE TAG 
FIELD OF THE 
POINTER STILL 
INDICATES THE 
TYPE OF LABEL 



I 
V 

•*#»*J3»* »*#•»#*# 
► REPLACE * 
» LABEL GROUP » 
•WITH POINTER TO* 
• BRANCH TABLE * 



• PUT POINTER 
•ON COMMON DATA 

• TEMP ROLL 



» K3 «-> 
#037205 V 



MOVE 

GROUP TO TEMP 

ROLL 
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Chart CG. ALLOCATE HEADING AND PUNCH ESD CARDS 



»**«A2*» ******* 
* BUILD * 

» PROGRAM ESD « 



•••**B2********** 

• * 

* INITIALIZE * 



••*••*••*•*•*•*•• 



.* DATA « 

ON ENTRY 

NAMES 

ROLL 



#*»»»03»* ******< 

* SET UP 

* PROGRAMMER 
->*SPECIFIED NAME 

* IN CENTRAL 
* 
*****•**•****#«« 



»*»#*#** 



PUNCH 
PROGRAM NAME 
» AS LD ESD 



»*#*#D4********** 

* ADD < 

* LENGTH OF « 

* INITIAL PROG « 
•CODE TO PROGRAM* 

* BREAK « 



•FLIP THE ENTRY 
•NAMES ROLL AND 
•MOVE ONE GROUP 
• OFF 



»*»»«F2 •»•*•••**• 

• SAVE * 
•GROUP ON COMMON* 
•NAME TEMP ROLL i « 

• ADD BLANKS TO * 
» NAME « 



► PUT J SYMBOL 
»IN FIRST BLANK 
* OF NAME 



PUT PROGRAM 

NAME IN PUNCH 

BUFFER 



• E4 

*••« 
#037405 



PUNCH ESD 



DATA LEFT 
ON ENTRY 
. NAMES 



»***F4 *••*••*•« 

MOVE GROUP TO 

CENTRAL AND 

COMMON NAME 

TEMP ROLL 



»*»««G4**«*«»»«*« 

• ADD « 

• BLANKS TO « 
•NAME, ADD ENTRY* 

• CODE TO PROG * 

• BREAK « 



»»«H4*»*»*»*« 

PUT 

ESD IN 

3UFFER-PUNCH 

IF COMPLETE 

CARD 



» COPY < 
» COMMON NAME « 
• TEMP ROLL TO * 
►ENTRY NAME ROLL* 



PUNCH ANY 
REMAINING ESD 
► CARDS « 
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Chart CH. CHECK ASSIGNMENT OF FUNCTION VALUE 



► COPY THE 
" COMMON 
•NAME TEMP ROLL 

► TO THE ENTRY 
» NAMES ROLL 



*.A SUBROUTINE 



PUT A MARKER 

SYMBOL ON 

EQUIVALENCE 

ROLL 



> FLIP « 
iTHt ENTRY NAMES" 

> ROLL « 



"■SET UP HEADING 
• FOR FUNCTION 
» ERROR LIST 



,* DATA ON *. NO 

THE ENTRY .» , 

•NAMES ROLL." | 



PRINT 

FUNCTION 

ERROR LIST 



PRINT 

ERROR SYMBOL 

ROLL 



•MOVE NEXT GROUP* 
» TO THE COMMON * 
•NAME TEMP ROLL • 



RETURN 



SCALAR 

WITH SAME 

NAME 



SET MODE 

OF SCALAR IN 

POINTER 



REGISTER NAME 

OF ENTRY FOR 

ERROR LIST 



» PUT POINTER 
•ON COMMON NAME 
• TEMP ROLL 



» ADD < 

• SCALAR ROLL « 
•GROUP FOR ENTRY* 

• NAME - DEFINE « 



» ADD SCALAR 
"TO EQUIVALENCE 
» ROLL 



ALL ENTRY NAMES 
TO A FUNCTION 

EQUI VALENCED 
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Chart CI, COMMON ALLOCATION 



>»*A2*»**»*« 

COMMON 

ALLOCATION 

AND OUTPUT 



INITIALIZE 
FOR COMMON 
ALLOCATION 



» ANY « 

BLOCK NAMES 
». ON ROLL .* 



»**»C3****»**« 

CLEAR 

CONTROLS AND 

ROLLS FOR 

ALLOCATION 

OF COMMON 

I 



►COPY ALL BLOCK 
•NAMES AND DATA 
•BACK FROM TEMP 
» ROLLS 



»*»«»C4**«**»»*« 

• ALLOCATE ALL 
» EQUIVALENCE 
•DATA REFERRING 
» TO COMMON 

• BLOCK 



» MOVE NEXT 
•NAME TO COMMON 
» AREA ROLL 



»DJ*»»»« 
RETURN 



PUNCH 
ESD CARD FOR 
» BLOCK 



ALREADY ON 

COMMON 

ALLOCATION 

ROLL INDICATES 



END OF 

DATA FOR 

BLOCK 



• NEXT « 

VARIABLE IN 

'. ANOTHER . « 

••BLOCK.* 



• RECORD 
•NAME AS COMMON 
» ERROR 



• MORE « 

BLOCK NAMES 
». ON ROLL •• 



.* NEXT *. 

.» NAME SAME • 
.AS LAST NAME 
*. ALLOCATED.* 



f. MAP OPTION 



PRINT 
HEADING FOR 
•MAP OF BLOCK 



COPY BLOCK 
NAME AND DATA 
TO TEMP ROLL 



»*»»#G4********< 
» COPY GEN'L 

• ALLOCATION 
•ROLL TO COMMON 

• ALLOCATION 

• ROLL 



i****H2*********< 

• ALLOCATE > 

• STORAGE FOR « 
< VARIABLE. RE- « 
» CORD ON GEN'L ' 
•ALLOCATION ROLL' 

I 



PRINT MAP 



PRINT 

ERRORS FOR 

BLOCK 



****K4*»*»**»*« 

• COMMON 
•ALLOCATION AND 
■ OUTPUT 



RETURN TO 
PROCESS NEXT 
COMMON BLOCK 
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Chart CK. EQUIVALENCE DATA ALLOCATION 



EQUIV. 
ALLOCATION 
PRINT ERROR 



»**A3****** 

CLEAR 

OBJECT 

MODULE 

LOCATION 

COUNTER 



r~l- 



» ALLOCATE ALL * 
► SETS WITH * 
►NAMES LISTED ON* 
»GEN ALLOC. ROLL * 
» + MOVE INFO « 



I 
V 

***C2******** 

FLIP 

EQUIVALENCE 

ROLL AND 
INITIALIZE 



I 

V 
•»»*C5*******»« 
SAVE LOCATION 
CNTR AS FIRST 
ADDRESS AFTER 
EQUIV DATA 



» D2 *-> 
#038501 .« 



INTEGRATE 



.« DATA ». NO 

►.TO PROCESS ON.* 

*• ROLL .* 



PRINT 

EQUIV 

ERRORS 



PRESENCE ON 
GENL ALLOC 
ROLL INDICATES 
THIS 



ENTRY 
ALLOCATED 
. BEFORE 



.* CONFLICT * 
->*.WITH PRESENT 
». SET .* 



• INCREMENT 
'PROJECT MODULE 

• PROGRAM BREAK 



#038503 V 

***##F2********* 
« ALLOCATE 
* ABSOLUTE AODR 
« RECORD ON GEN 
» ALLOC ROLL 



» RECORD 
•NAME FOR ERROR 
» LIST 



'COPY INFO GENL 

• ALLOC ROLL TO 

• SOURCE ROLL 



• INCREMENT * 
»PTR TO GET NEXT" 

• GROUP « 



t«»»*G4 «»*»••■»*< 
» MAKE FINAL « 
•ALLOC AND MOVE « 

• INFO TO EQUIV « 
•ALLOC ROLL FROM* 

• GEN ALLOC « 

I 



* * 

* 02 * 
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Chart CL. SAVE AREA, BASE AND BRANCH TABLE ALLOCATION 



ttft**A2********* 

* BASE AND « 
» BRANCH TABLE « 

* ALLOCATION « 



ft****B2********** 
•SAVE BASE TBL. * 
» PTR AND » 

* DISPLACEMENT * 

* FOR START OF » 

* SAVE AREA « 
»**»*****»*•»**»* 



»»»**C2********** 
ft * 

» INCREASE « 
» PROGRAM BREAK * 
» BY SAVE AREA * 
» SIZE * 



THIS VARIABLE 
IS USED 

TO HOLD OBJECT 
MODULE ADDRESSES 
BEING ALLOC. 



ft »*»*D2 ***♦****« 

* SAVE BASE TBL 
*PTR AND DISPLA- 

* CEMENT FOR 

» START OF BASE 

* TABLE 
**»»****#»***»»* 



»ft*»ftE2********** 

* • 
« INCREASE * 

* PROGRAM BREAK * 

* BY BASE TABLE * 

* SIZE « 
»»»*»******»***»» 



ft»ft*»F2*»»**ft»*»ft 
ft • 

« CONSTRUCT * 

* REQUIRED BASE » 

* TABLE ENTRIES * 



BUILD 

ADDITIONAL 

BASES 



*****G2 ********** 

* SAVE BASE TBL * 
•PTR DISPLACEMT * 
» FOR START OF * 

* BRANCH TABLE « 

* ft 
****«•*«•***«**** 



****»H2 ********* 
•INCREASE PROG. 

• BREAK BY 

• SIZE BRANCH 
•TABLE AND MAKE 

• LABEL ENTRIES 



CONSTRUCT 
REQUIRED BASE 
TABLE ENTRIES 



BUILD 

ADDITIONAL 

BASES 



ft ft »*K2 **•*»»*•» 
» ft 

» RETURN * 
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Chart CM. ALLOCATE SCALARS 



G0397 

••••Al***««**«* 

• « 

• SCALAR ALLOCATE* 



— >» INITIALIZE 





#••« 
1 


#039701 


1 

V 

• *• 

A3 *. 


• * 
>*. 


ALL 

SCALARS 

PROCESSED 



->*. DUMMY SCALAR 



->».CALL BY NAME .» 



MOTE 1- 

THESE QUESTIONS 

SEPARATE 8 AND 

16 BYTE 

VARIABLES 



'SEE NOTE 1 

* , 

YES 



•COMPLEX MODE 



ALLOCATE * 

STORAGE AND * 

RECORDi PRINT « 

MAP » 



NOTE 2- 

IF DURING PASS 1. 
NO MAP IS PRINTED 
AND ALLOCATION IS 
NOT RECORDED FOR 
COMMON AND EQUI- 
VALENCE SCALARS. 
INFO IS PICKED UP 
FROM OTHER ROLLS 



DOUBLE 

PRECISION 

MODE 



SEE NOTE 1 
YES 



••SHORT INTEGER. 



MOVE GROUP TO 

HALF WORD 

SCALAR ROLL 



.SHORT LOGICAL. 



* MOVE GROUP 
->*TO BYTE SCALAR 

* ROLL 



• J2 «-> 

#039708 V 



n 



* * 

• K2 * 



» MOVE GROUP TO 

• FULL WORD 

* SCALAR ROLL 



• PREPARE « 
•TO PROCESS NEXT* 
» SCALAR « 



SEE NOTE 2 



* ALLOCATE FULL 
« WORD SCALARS- 

• RECORD AND MAP 



* ALLOCATE HALF * 
>» WORD SCALARS- *- 
•RECORD AND MAP • 

***************** 



* ALLOCATE 
->* BYTE SCALARS- 
•RECORD AND MAP 



SET 

MODE OF NEXT 

SCALAR 



K#D5»**** 
RETURN 
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Chart CN. ALLOCATE ARRAYS 



»•**»»**« 



•••••B2*********« 

• « 
» INITIALIZE * 

• * 

• * 
•#»»#•**»•»•****« 



» C2 »-> 

* * 
*••• 
#040101 



.» ALL *• 

ARRAYS 
•.PROCESSED.* 



PRINT 
ANY PARTIAL 
» LINE 

•*****•»•#•»• 



»**»C4 »•»«*»»»« 
RETURN 

»*«*«**««*«ft»«4 



.» NEXT *. 

.» ARRAY IN * 

.COMMON EQUIV. 

«.OR DUMMY .» 



••••»E2********** 

* * 

* ALLOCATE » 

* STORAGE AND » 
•RECORD LOCATION* 



»*#*F2********** 

ENTER * 

INFO IN ARRAY * 

MAP, PRINT » 

COMPLETE LINE « 



*«*«*G2********** 

* * 
» CALCULATE AND * 
•RECORD BASE PTR* 
•AND DISPLMT IN • 

• CENTRAL » 



» H2 »-> 
• • 
• •»» V 
#040102 .». 



•• PASS 1 



HASb 1 .» 1 







» REPLACE GROUP • 


• ON ROLL • 


••••••••••••••••• 


• ••• 




• • 




• K2 •-> 




* • 




• ••* 




#040103 V 


»#..»K2»»»*««»««« 




» PREPARE • 


•TO PROCESS NEXT* 


• ARRAY • 




* 



n 
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Chart CO. ADD BASES FOR SUBPROGRAM ADDRESSES 



•••*A2»******** 

* PASS 1 GLOBAL * 
*SPROG ALLOCATE * 

* * 

***■»*#»*#»»**»• 



*****82 ********** 

* * 

* ALIGN TO * 

* FULL WORD * 

* BOUNDARY * 
» * 
*»**»**»»»»#*»»** 



*»#»*C2********** 
•DETERMINE BASE * 

* PTR AND * 

* DISPLACEMENT * 
♦FOR PRESENT LOC* 

* » 



»**»*D2 ********** 

* COMPUTE * 

* LENGTH OF * 

* OBJECT MODULE * 
•SUBPROGRAM ADR * 

* * 
*#♦******#*»•**»* 



»*»**E2********** 
•COMPUTE LENGTH » 

* OF OBJECT * 

* MODULE * 

* SUBPROGRAM * 

* ADDR * 
*»*»*»**«#■»**»#»• 



BUILD 

ADDITIONAL 

BASES 



*»»»F2 ********* 

t RETURN * 

» 1 
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Chart CP. ALLOCATE SUBPROGRAM ARGUMENT LISTS 



»***A2********* 

* SPROG ARC * 

* ALLOCATION * 
» < 

*************** 



ZERO 
ARGUMENTS 



»***B3********* 

* -i 
->* RETURN * 

* * 

*************** 



****»C2 ********** 

* * 

* ALIGN TO A * 

* FULL WORD * 

* BOUNDARY * 

* * 
***************** 



**»**D2 ********** 

* DETERMINE AND * 

* SAVE BASE PTR * 

* AND DISPLACE- * 
•MENT FOR START * 

* OF ARGUMENTS * 
***************** 



»****E2********** 

* INCREASE * 

* PROGRAM BREAK * 

* BY SIZE OF * 
•ARGUMENT LISTS * 

* * 
••***•**•**••**•• 



*****F 2 ********** 

* • 

* CONSTRUCT * 

* REQUIRED BASE • 

* TABLE ENTRIES * 

* * 
•*****•*•••**•••* 



****G2 ********* 
t * 

* RETURN * 

•*••••*•****••• 
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Chart CQ. PREPARE NAMELIST TABLES 



l»«A2*«»»»»»»« 



» FLIP NAMELIST 

• NAMES AND 
•NAMELIST ITEMS 

* ROLLS 



A SCALAR 



.... 1 




• I 


» C2 


»-> 




• 1 


• ••* 


V 


#044301 


« * • 




C2 *. 




.. 


DATA ». 


•.ON 


THE NAMES .» 


». 


ROLL .* 



#044307 

*«*.*C3. »...»*». 

* COPY THE 

* COMMON DATA 
>* TEMP ROLL TO 

•NAMELIST NAMES 

* ROLL 
•»•»»•*..»•*»*** 



AN ARRAY 



#044304 

»».*»C5*. »..♦*.*. 

♦ OETERMINE • 

• NUMBER OF « 
>* DIMENSIONS FOR « 

* SIZE OF TABLE • 

• ENTRY * 
................a 



»...«D2»»***»« 

► ALLIGN TO 
* FULL WORD 

> BOUNDARY 



. * 

•RECORD VARIABLE. 
» NAME AS • 
•NAMELIST ERROR » 



• »»*»D5**»***«»<< 

• ADD 12 TO 

• SIZE OF ENTRY 

• ON WORK 



»«»*»E2»***«**»* 
» MOVE 
•NAMELIST NAMES 
» ROLL GROUP TO 
» COMMON DATA 
» TEMP ROLL 



.•..♦E5*» *»«»*»»« 

* MOVE NAMELIST * 
« ITEMS ROLL * 

* GROUP TO « 

* NAMELIST « 
•ALLOCATION ROLL* 



•••••F2**«*«**«< 

•DETERMINE BASE 
» POINTER AND 

• DISPLACEMENT 

• FOR PRESENT 
" LOCATION 



INCREASE 

PROGRAM BREAK 

3Y 16 PUT ZERO 

ON WORK 



• H2 *->j 

»••• V 

#044302 .« 



.» DATA *. 

».ON THE ITEMS .< 

•• ROLL .« 



•*»H3»«««»*»« 

MOVE MARKER 

SYMBOL TO 

NAMELIST 

ALLOCATION 

ROLL 

»*•*•*•••***« 

I 



REGISTER 

VARIABLE AS 

SCALAR 



INCREASE 

PROGRAM BREAK 

BY ENTRY SIZE 

CN WORK 
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Chart CR. ALLOCATE LITERAL CONSTANTS 



»#»«A2**< 



* INITIALIZE « 

• PTRS TO LITERAL* 
» CONST ROLL » 



MOVE LITERAL 
•TO OUTPUT AREA 
PUNCH IF CARD 
* CORRECT « 



« C2 »-> 

#044401 . 



THE PRESENT 
POINTER IS 
COMPARED TO 
A POINTER TO 
A NEW GROUP 



. » ALL 

CONSTANTS 
*. PROCESSED 



TS .* 1 

ED.- — J 



*###*C4*********« 

* PUT BASE PTR * 

* AND * 
•DISPLACEMENT ON* 

* LITERAL CONST * 

* ROLL • 



COMPUTE AND 

SAVE PTR FOR 

NEXT GROUP ON 

ROLL 



•* PAUSE ». 
.» OR DATA « 
.STMT LITERAL 



THROW 
AWAY OLD 
POINTERS 



»#»»»F2«»»*»*«*« 

» INCREASE 
» PROGRAM BREAK 
•BY NO. BYTES I h 
» PLEX 



>.«.«G20«oo«*oo< 

•DETERMINE BASE 
» PTR AND 
» DISPLACEMENT 
• FOR PRESENT 
» LOCATION 



PUNCH 

ANY PARTIAL 

CARD 



»»H4»**»« 
RETURN 



RETURN 

*»•••##»« 



PUNCH 
REMAINING 
TXT CARD 



•THROW AWAY BASE» 

» PTR DISPLMT » 

» AND PTRS TO * 

» THIS LITERAL » 
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Chart CS. ALLOCATE FORMATS 



«**«A2******* 

► FORMAT 
» ALLOCATION 



BUILD FORMATS 



»»*B2*»**«»*« 

SET 
POINTER TO 
FORMAT ROLL 



* NOTE 
>* ADDITIONAL 
•BASES REQUIRED 



» C2 «->j 
#44601 • • 



»»*C4***»« 

RETURN 



n»»D2* 

COMPUTE AND 

SAVE POINTER 

TO NEXT 

FORMAT 

GROUP 



*** 



* D3 «-> 

* * I 
»»** v 

J04AS01 .« 



PUNCH ANY 
DATA LEFT ON 
» TXT CARD 



PRINT MAP 

LINE 
REMAINING 



»»»»»£2** ******** 
» INCREASE « 
» PROGRAM * 
* BREAK BY * 

•NUMBER OF BYTES* 
» IN FORMAT * 



**»**E3********** 

* OBTAIN * 
•NUMBER OF WOROS* 
» FOR FORMAT * 



..-'H 



•CALCULATE BASE 
» AND 
« DISPLACEMENT 
» FOR FORMAT 



»»*G2******** 
MOVE FORMAT 

TO OUTPUT 

AREA PUNCH 

XF CARD 

COMPLETE 



**###G3********* 

* REBUILD 

* FORMAT ROLL 
•WITH BASE PNTR 



»*******•* 



PRINT FORMAT 
MAP. IF 
» OPTION 
SPECIFIED 
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Chart CT. MAP EQUIVALENCE 



t###A2******* 



» ANY « 

EQUIVALENCE 
». DATA .* 



»B3»»»»»**»* 
RETURN 

»#»#••••#•»* 



»##C2*********** 

PRINT « 
HEADING FOR 
EQUIV MAP * 



*»#*»D2»»*»«*»»«» 
♦DETERMINE DELTA* 
•FOR EQUIVALENCE* 
» ADDRESSES DCB * 

* TO BASE TABLE * 

* SIZE * 
#»»*»»»»*****»*** 



* FLIP THE * 

* EQUIV » 
•ALLOCATION ROLL* 

* * 
•#*•***#*•«•••••• 

• ••• I 

* • I 

* F2 *-> 



••DATA ON*. 
► EQUIV 

ALLOCATION 
• • ROLL 



#044102 V 

*****F3********** 

* COPY * 

* COMMON NAME » 

* TEMP ROLL TO * 

* EQUIV ALLO- * 

* CATION ROLL » 



OATA 1 HOLDS 
THE ADDRESS 
OF THE 
VARIABLE 



»#»**G2********** 

* MOVE NEXT • 

* GROUP TO • 

* CENTRAL. * 

* INCREASE « 

* ADDRESS * 
******•••*«****** 



*»#»*H2********* 

* 

* ENTER INFO IN 

« MAP. PRINT IF 

» LINE COMPLETE 



*G3********** 



***«*«H3* •*•******* 

* PRINT * 

PARTIAL LINE 

* OF MAP * 



*«»»*J2****«*«*** 
•DETERMINE BASE * 

• POINTER AND • 

• DISPLACEMENT » 

* FOR VARIABLE * 

* * 
•#»****#***•*•*** 



****K2»***»»»« 

PUT GROUP 

FOR VARIABLE 

ON COMMON 

NAMES 
TEMP ROLL 



n 
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Chart CU. ALLOCATE SUBPROGRAM ADDRESSES 



FLIP THE 

GLOBAL SPROG 

ROLL 



• DATA ON 

THE GLOBAL 
». SPROG 
•.ROLL .» 



#040303 

**<**C3**<**»*« 

* COPY COMMON 

* DATA TEMP 
->» ROLL TO 

* GLOBAL SPROG 

* ROLL 



* FLIP 
->* THE USED LIE 
« ROLL 



» MOVE NEXT 
•GROUP OFF ROLL 
• TO CENTRAL 



* D4 

*##• 
#040304 



.* DATA ON ». NO 

• •THE USED LIB .* 

«. ROLL .» 



•**«D5 •»»•••***• 

COPY COMMON • 

DATA TEMP • 

ROLL TO • 

USED LIB • 

FUNCTION ROLL • 

»**#»»••#*•****• 



»«*»E5****»***< 

PRINT PARTIAL 

LINE OF SPROG 

» LIST IF « 

REQUESTED 



• ALLOCATE 

» STORAGE FOR 
"ADDRESS RECORD 

• ( PRINT LIST ) 

• PUNCH ESD 

I 



MARK GROUP 

FOR INLINE 

FUNCTION 



PUNCH 

PARTIAL ESD 

CARD 



» PUT GROUP 
•ON COMMON DATA 
» TEMP ROLL 



»*G5*»»«« 
RETURN 



» ALLOCATE 
< STORAGE FOR 
•AODRLSS RECORD. 
• PRINT LIST 
» PUNCH ESD 

I 



PUT GROUP 
COMMON DATA 
TEMP ROLL 
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Chart CV. BUILD AND PUNCH NAMELIST TABLES 



BUILD 

NAMELIST 

TABLE 



DATA ON 
NAMELIST 

NAMES 
••ROLL •< 



MOVE FIRST 4 

WORDS OF 

ITEM ENTRY 

TO CODE ROLL 
AND PUNCH 



»**#«C2»*»«*»»HH 
» FLIP 
•NAMELIST NAMES 
» AND NAMELIST 
» ALLOCATION 
» ROLLS 

I 



PRINT HEADING 

FOR NAMELIST 

» MAP IF * 

REQUESTED 



THE LATTER 
HOLDS THE 
ITEMS FROM 
THE NAMELIST 
LIST 



»#»*»D4***»*****« 

» MOVE ALL « 
» DIMENSION ' 
»FACTORS TO CODE" 
» ROLL * 



E2 ». 

.* DATA « 

LEFT ON 

NAMELIST 

NAMES 
•.ROLL .« 



»**E3****»»*« 
COPY COMMON 
DATA TEMP 
ROLL 
TO NAMELIST 
NAMES ROLL 



ENTER NAME •( 

LOC IN MAP 

LINE PRINT 

» IF LINE 

COMPLETE 



I 

V 
»*#»G2»»«»*»»#« 
PUT BASE AND 
DI SPLACEMENT 
OF NAMELIST 
TABLE ON COM- 
MON DATA TEMP 



PUNCH AND PRINT 

» REMAINING * 

INFO IF 

* REQUESTED * 



»##*H2********* 
MOVE NAMELIST 

NAME AND 2 

WORDS OF TO 

CODE ROLL AND 

OUTPUT 



••DATA ON*. 
.« NAMELIST *. NO 

•. ALLOCATION .* 1 

*. ROLL .» I 



THE NO 
ANSWFR IN- 
DICATES EITHER 
NO DATA OR 
A MARKER 
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Chart CW. BUILD BASES 



*»*»A2 ********* 

* BUILD * 
► ADDITIONAL * 

* BASES * 



* • j 

* B2 *-> 

* * i 

V 

»»»**B2********** 

* * 

* OBTAIN * 
•PRESENT PROGRAM* 

* LOCATION * 

* * 



C2 *. 

.* *. 

„* MAX FOR i 
*., LAST BASE 

* . .1 



*#**C3 ********* 
* RETURN * 



**»***»*»■*»»#»# 



»**»*02********** 



* INCREMENT * 
♦BASE ALLOCATION* 



**•»«*•**«****#•* 



»#*»»E2** ******** 

* * 

* REGISTER * 

* NEW BASE * 

* ALLOCATION * 

* * 
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Chart CX. DEBUG ALLOCATE 



DEBUG 
ALLOCATE 



*#** 1 
t # | 

• B2 *-> 



n«»«C2»»»«»«*»« 

► MOVE 

* VARIABLE NAME 
•OFF OF ROLL TO 

► CENTRAL AREA 



»**«« 



It*** 



DATA 

ON SUBCHK 

ROLL 



MATCHING 
GROUP ON 
. SCALAR 
••ROLL .« 



SET THE INIT 

BIT IN THE 

SCALAR ROLL 

GROUP 



MATCHING 
GROUP ON 
. ARRAY 
*.ROLL .« 



SET THE INIT 

BIT IN THE 

ARRAY ROLL 

GROUP 



» MOVE 
» VARIABLE NAME 
•OFF OF ROLL TO 
» CENTRAL AREA 



.* MATCHING *. 

•GROUP ON GLOBAL' 

».DMY ROLL .» 



»»»*»F3*»***»»*« 
• SET 
•THE SUBCHK BIT 
» IN THE GLOBAL 
•OMY ROLL GROUP 



MATCHING 
GROUP ON 

ARRAY 
*.ROLL .« 



.» MATCHING *. 

•GROUP ON GLOBAL* 

*.DMY ROLL .* 



•SET THE SUBCHK 

• BIT IN THE 
» ARRAY ROLL 

• GROUP 



»*#«*J2»»»*»#»*** 
• SET * 
•THE INIT BIT IN« 
•THE GLOBAL DMY • 
» ROLL GROUP « 
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Chart 07. PHASE 3 - UNIFY 



START UNIFY 



» RELEASE 
'PROGRAM SCRIPT 
► ROLL 



G0J45 V 

»****B2 ********** 

*ARY REF AL-DAA2* 



» SET UP 
• POINTER TO 
'ARRAY REF ROLL 



DATA ON 
PROGRAM 
SCRIPT 
••ROLL .« 



•COPY AREA FROM 
» RESERVE START 
•TO SCRIPT ROLL 
» RESERVED AREA 



CONVERT TO 

ADDR CONST 

DBA2 



» RESERVE 
•PROGRAM SCRIPT 
» ROLL 



•SET REG RUNG = 
»4 AND INCREASE 
• POINTER 



MOVE NEXT 
GROUP FROM 
SCRIPT ROLL 



G0112 V 

»*»»*E4 ********** 
•CNVT/FORMT-DCA2" 

* CONSTRUCT • 

* INSTRUCTION * 

* FORM. FOR REG2 « 
»#*»**»*********• 



• REPLACE • 
•GROUP ON SCRIPT* 

• ROLL « 



G01 12 V 

##***G4 ********** 
*CNVT/F0RMT-DCA2« 

•CONSTRUCT INST • 

* FORMAT FOR « 

* REGISTER 2 • 



G011S V 

•*o*#H2********** 
•00 NEST UN.00A2« 
#_«—#—*—*—*—•—*—• 

* PROCESS • 

* NEST OP « 

* LOOPS « 



. * LOOP TEMP ». 

.CNTS REQ LOOP. 

•.TEMP CNT .* 



• SET REQ LOOP * 
•TEMP CNT = LOOP* 
» TEMP CNT * 
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Chart DA. BUILD ARRAY REF ROLL 



G0145 



»»*#A2»***»**»* 
f ARRAY REF < 

► ROLL < 

> ALLOTMENT h 



**#**B2********** 

* GET * 

* BEGINNING » 

* ADDRESS OF » 
•ARRAY REF ROLL * 

* » 



#»»*#C2********** 

* GET ADDRESS » 
» OF PARSE SAVE * 

* AREA * 
» » 



*# » » *D2 *#****#*#* 

» * 

» GET NUMBER « 

* OF ARRAY REF *. 

* ROLL ENTRIES » 

* • 

* E2 «... 



(114501 X 

#***«E2********** 

» * 

» LOAD GROUP * 

♦INDICATED WITH » 

•INITIAL ZEROS * 

« # 



#»*##F2*********< 

* INDEX TO < 

• NEXT ENTRY < 

* POINT ON ROLL < 

• < 



D3 *. 

.•NO. OF *. 
.» ENTRIES *. YES 
,X*. EQUAL ZERO .*.... 



»»»#D4***»*«»** 

* * 
.X* RETURN < 

* t 
••••••••••••••• 



F3 •. 

.• ALL »■ 
.• ENTRIES 
,X*. PROCESSED 



YES 



. • 



• NO 



#»»#F4»»»»»**»* 

* 4 

,X» RETURN * 

• ) 



E2 • 
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Chart DB. MAKE ADDRESS CONSTANTS 



■»*A2****»*« 

CONVERT TO 

ADR CONST 



•FOR dASE (EVEN 
» CODE 

» DI SPLACEMENT ) 
» IN DATA 3 



*SET UP POINTER 

* FOR LOOP 

* CONTROL ROLL 



. «GRP MATCHES* 
.ON ADR CCNST 
«. ROLL .« 



* C2 
#01 1301 
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» SET UP DATA 
•AND INITIALIZE 
• FOR GEN 



•SET POINTER TO 
• NEW GROUP ON 
•ADR CONST ROLL 



n»»D3* •**« 
IEYGEN 



• PLACE BASE AS 
"NEW GRP ON ADR 

• CONST ROLL 



.TAG FIELD = 0. 



I 
V 

»*»**E4»«**»*»**< 
•INCREASE PTR OY< 

* TEMP LOC FOR • 
•LOOPS BY 4 AND < 

• PUT ON ADR • 
« CONST < 



REFER TO 
TEMP AND 

CONST 
••ROLL .« 



REPLACE OASE 
WITH TEMP PTR 

ON LOOP 
CONTROL ROLL 



.* WORD «. 
EQUAL TO 
OR LARGER 

. THAN . 



->* PRUNE WO 



THE WORD 
DOES NOT 
CONTAIN AN 
AREA CODE 
AND DISPLACEMENT 
INDICATING A 
NEED FOR A 
TEMPORARY 
LOCAT ION 



Chart DC. CONSTRUCT INSTRUCTIONS 



••»• A2 »**•«»*** 
* CONVERT TO * 
^ INST FORMAT * 

t « 

•»•*»»*»••♦•*»» 



»»***B2********** 

* GET * 
» REG RUN OFF * 
•ARRAY REF ROLL * 

* FROM POINTER * 

* * 
#»»»»***•*•»»»»»» 



C2 *. 
.* *. 

* GENERAL * . NO 

REG. NOTED .* 

t . .» 

* . .* 



* YES 



#**#*D2***»****** 



* MASK * 
*REG. RUNG VALUE* 



•»»*»»*»»»*•»*»•» 



*****E2.** ******** 

* PLACE * 

* VALUE IN R2 * 

* POSITION FOR » 

* INSERTION ON * 

* ROLL * 
»»•♦»*»•*•»»•»•** 



*»*»C3**»#»**** 

* * 
->* RETURN * 

• t 
»*»»*••»**»•»•» 



Rl 
OR 
R2 



► Rl 



~1 



# 4 

» H2 * 



»»*»»G2*****»*»»» 

• • 
» SHIFT » 

* VALUE TO Rl * 
» POSITION « 

* • 

• * I 

* H2 •->) 
» * f 

• ••* I 

V 

*****^Z* ********* 

» # 

•INSERT VALUE I N« 

• ZERO RUNG OF • 
•ARRAY REF ROLL • 
« • 
*••••*•••••••«••• 



****JZ** ******* 
h t 

* RETURN * 

► 4 

••••••••••••••• 
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Chart DD. PROCESS NESTED LOOPS 



DO NEST UNIFY 



RESERVE 

NEST SCRIPT 

ROLL 



'INITIALIZE LOOP< 
i TEMP CNT AND « 
1 NEXT LEVEL « 



COPY SCRIPT 

30LL ONTO NEST 

SCRIPT ROLL 



• PLACE IND. 
•VAR. COEFF. C 
> NEST IN WO 



»*#**C4«*«*»***« 
•SET OUTER LOOP 
» CONTROLS AND 
" DETERMINE 
» SCRIPT 
» ALLOCATION 



»#»*E2»«««»«»»< 

COMPARF 

NEST LEVEL OF 

LOOP WITH 

PREVIOUS NEST 

LEVEL 



PUT POINTER 

TO ARRAY, 

OFFSET IN WO 



i NL2 

NOT EQUAL 
<• TO NL1 



« PLACE IND VAR « 

->*OF INNER NESTED* 

* LOOP IN WO » 



DETERMINE 

SCRIPT 

ALLOCATION 



SET 

NEST LEVEL 

INDICATOR 



« PLACE NEST 
» LEVEL ON 
•PROGRAM SCRIPT 
■ ROLL 



» SET 

» AVAILABLE 

•REGISTER COUNT 

• FOR SCRIPT 

• EXPRESSION 

I 



• PLACE NEST 
» LEVEL ON 
•PROGRAM SCRIPT 

• ROLL 



• PUT IND * 
•VAR COEFFICIENT* 

• IN Wl * 



•SET NEST LEVEL • 

->»TO PROCESS NEXT* 

» LOOP « 
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Chart 08, 



PHASE 4 - GEN 



»A2*«****< 

IEYGEN 



G0493 V 

»»»»»A4»*« 
• LBL PROC 



REMOVE AND 

PROCESS 

LABEL 



START GEN 



INITIALIZE 



G0499 V 

»****C2*******»*« 

*ENT CD GEN-EAA2* 

» PRODUCE CODE * 

* FOR HEADING « 

* AND ALL ENTR. « 



•PROLOG GEN-EBA2* 

* PRODUCE ALL « 

* REQUIRED « 

* PROLOGUE CODE * 



G0508 V 

•EPILOG GEN-ECA2* 

• PRODUCE * 

• REQUIRED « 

• EPILOGUE CODE « 



•MOVE NEXT GROUP* 
» FROM POLISH * 
* ROLL TO WORK * 
» ROLL « 



•••••B5»**»****** 

* INDICATE « 
>* STATEMENT « 

•NUMBER ON CODE « 

• ROLL « 
**•»»#*•*#**•*#*** 



•GEN OBJECT CODE* 
•FOR STMT IF END* 
• STMT TERM PHS • 



CODE IS 

PRODUCED 

ON THE CODE 

ROLL 



»D4< 



t#* 



•STA GENFIN EHA2» 

• GEN CODE FOR • 
•DO CLOSE RESET • 

• TEMP PNTRS 



»•*•* 



GEN PROCESS 



G0712 V 

»»*«»F2*»»»»»**»* 
•GET POLISH E0A2* 

* MOVE POLISH * 

* FOR STMT TO * 

* POLISH ROLL * 



POLISH 
NOTATION 
IS ON AFTER 
POLISH ROLL 



» MOVE 
► STMT NUMBER 
•FROM POLISH TO 
» STORAGE 



•MOVE NEXT GROUP* 
» FROM POLISH • 
• ROLL TO WORK * 
» ROLL • 



J2 • 
.LABEL POINTER 



• n 
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Chart EA. GENERATE ENTRY CODE 



» PUT MAIN « 
•PROGRAM HEADING" 
• ON CODC ROLL * 



ALL 

GROUPS 

•PROCESSED. 



» INITIALIZE A 
•POINTER TO THE 
» ENTRY NAMES 
* ROLL 



**»C3****»»*< 

SET UP 

SAVE AREA 

LOCATION AT 

CURRENT LOC 



» REDUCE « 
►COUNT OF GROUPS' 
» TO PROCESS « 



10. GROUPS 

ON ENTRY 
■NAMES = 1. 



ALL 

GROUPS 

.PROCESSED. 



»**»E2 ********* 

BUILD A LABEL 
RECORD INIT. 
PGM LOC BUILD 
CODE TO EXIT 
FOR LABEL 

I 



» REDUCE « 
►COUNT OF GROUPS* 
► TO PROCESS * 



► INSERT * 
•PROGRAM NAME IN« 
» CODE * 



INSERT 

ENTRY NAME IN 

CODE 



I 

V 

t**Q2* ******* 

PUT CODE 

FOR INITIAL 

SUBPROGRAM 

ENTRY ON 

CODE ROLL 



PUT CODE 

FOR ENTRY ON 

CODE ROLL 



GENERATE 



• H2******** 
GENERATE 
ADDRESS 
CONSTANT 
FOR PROLOGUE 
♦EPILOGUE 



BUILD INITIAL 

PROGRAM ENTRY 

AD CON CODE 



*****J2 ********* 

* 

* BUILD SAVE 

* AREA AD CON 
» CODE FOR EXIT 



GENERATE 

PROLOGUE 

+EPILOGUE 

ADCONS 
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Chart EB. PROLOGUE CODE GENERATION 



G0504 

* PROLOGUE GEN * 



»****B2 *»»»***« 
• 

* INITIALIZE 
« POINTER TO 
« ENTRY NAMES 

* ROLL 



***#»C2********** 
•INITIALIZE CNT * 
•OF GROUPS TO BE» 
» PROCESSED ON • 

• ENTRY NAMES * 

• ROLL * 
**•*#•*••**•*••*• 



•»»»B4******** 
PUT LOCATION 
OF CLOSE OF 
PROLOGUE IN 
ENTRY NAMES 
ROLL GROUP 



UPDATE 

POINTER TO 

ENTRY NAMES 

ROLL 



CLEAR 

BASE REGISTER 

TABLE 



.» ALL ». 

GROUPS 
PROCESSED 



^•»**E2********** 

» REDUCE COUNT • 
•OF GROUPS TO BE»- 
• PROCESSED • 



• BUILD A • 

* LABEL • 
->»INSTRUCTION FOR* 

• PROLOGUE * 

# • 
•*•••*#•••*•••••• 



H 



•CONSTRUCT CODE 
» FOR LOADING 
» ARGUMENTS, IF 
• ANY 



»*»*»G2 »•••••»••• 
» CONTRUCT CODE • 
•FOR COMPUTATION* 
» OF DUMMY • 
•DIMENSIONS, IF • 
» ANY • 



t»*»H2***»»»* 
CONSTRUCT 
CODE FOR 
CLOSE OF 
PROLOGUE 



•»»«G3**»*»»«»« 
• BUILD DEBUG 
LINKAGE. UNIT 
CODE AND UNIT 
NO. IN CODE 
ROLL 



»»»»J3««*«»»»»* 
BUILD 
DEBUG LINKAGE 
AND SUBTRACE 
START CODE ON 
CODE ROLL 
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Chart EC. EPILOGUE CODE GENERATION 



EPILOGUE GEN 



•SUBPROGRAM • 

ENTERING TO 
•. PROCESS •• 



OBTAIN NO. 

OF GROUPS TO 

PROCESS 



t...«C2*«»»*«»*»< 
SET 

> LABEL « 
(INSTRUCTION FOR« 

> MAIN PROGRAM • 

> ENTRY • 



• C3 «.X 

«ri5oeoi 



• ALL ». YES 

GROUPS .» . 

(.PROCESSED.* 



« PRUNE « 

.X»LAST ENTRY FROM« 

» WORK ROLL « 



•BUILD CODE FOR 
» CLOSE OF 
► EPILOGUE OF 
• MAIN PROG 



►SET BASE TABLE « 
•AS REQUIRED FOR* 
» EPILOGUE • 



»D4»**«« 
RETURN 



BUILD 

MAIN PROLOGUE 

CODE 



►BUILD INSTRUCT 
► FOR DUMMY 
►ARGUMENT VALUE 
» TRANSFER 



. *. 


HO508O2 


F3 ». 




ENTRY *. 


• 


DEFINED *. NO 


» PRUNE 








* WORK ROLL 



BUILD LOAD 
INSTRUCTION 

AND CLEAR 
ACCUMULATOR 



♦BUILD COOE FOR 

* CLOSE OF 

* EPILOGUE OF 

* SUBPROG 



,. .HI- •«»•••• 

BUILD DEBUG 

LINKAGE AND 

SUBTRACE 

END CODES 

(RETURN) 



•DECREASE NUMBER" 

• OF GROUPS TO « 

• PROCESS « 
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Chart ED. MOVE POLISH NOTATION 



G0712 

**##A2********* 
* t 

» GET POLISH < 

» * 

I 



*»»#*B2»»*»***»»* 
» * 

•SET UP POINTER * 
•TO AFTER POLISH* 

• ROLL * 

* * 



*#»*»C2*********« 

• » 

• COPY .POLISH • 

• FOR STMT TO * 

• POLISH ROLL * 

• » 



*»»»#D2*********« 

* * 
•UPDATE CONTROLS* 

* FOR AFTER * 

* POLISH ROLL * 

* # 



»**#E2******»*» 
f i 

► RETURN < 
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Chart EF. PROCESS LABELS 



LBL PROCESS 



t * 

t STORE POINTER « 
•TO LABEL IN STA* 
► LSL BOX * 



•MAKE LABEL FOR 
•DEBUG CODE-PUT 
►BRANCH ON CODE 
« ROLL 



•»«»»C3**» «***«» 

•PUT POINTER TO 
» MADE LABEL ON 
• AT ROLL-WORD 
» 2 OF GROUP 



#49305 



JUMP TARGET . »- 



k-#*«*03 •*»**»**• 

• MAKE LABEL 
•FOR NEXT INST- 
» RUCTION - PUT 

• LABEL CODE ON 

• CODE ROLL 



PUT DEBUG 

LINKAGE FOR 

TRACE ON CODE 

ROLL 



CLEAR THE 

BASE REGISTER 

TABLE 



»»«**E3«**»»»*»« 

•PUT POINTER TO 

• MADE LABEL ON 

• AT ROLL-WORD 

• 3 OF GROUP 



PUT BINARY 
LABEL ON 
CODE ROLL 



PUT LABEL 

CODE ON CODE 

ROLL 



CLEAR WORD 1 

OF AT ROLL 

GROUP 



DATA 
ON AT 
ROLL 



FIRST WORD 
OF AT ROLL 
GROUP I S 
COMPARED WITH 
STA LSL BOX 
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Chart EG. GENERATE STMT CODE 



G0515 

* i 

* STA GEN * 

* * 



B2 *. 
.* STMT *. 

.* FUNCTION < 
f. MADE LABEL 
*. PTR = .* 



* • •* 
* NO 



.*. 



C2 *. 
.* STMT ». 
.* FUNCTION 
►. DRIVER ON 
*. WORK . 



*»##A4***»<**** 
► TERMINATE < 

I- PHASE * 

t 4 

*************** 



•*«**B4********** 



* PREPARE * 
*FOR EXIT PHASE * 



***************** 



#09 » 

» A2* 

* # 



TO PHASE 
EXIT 



»**»#D2 ********** 

* BUILD » 
» CODE FOR * 

* STATEMENT * 

* FUNCTION MADE * 
» LABEL * 



#051502 

#*#»*E2*****»**** 

* * 

* GENERATE » 

* CODE FOR * 

* STATEMENT * 

* * 



»»*#F2*******»* 

«■ i 

* RETURN * 



THE JUMP TO 
APPROPRIATE 
CODE GENERATION 
THE CONTROL 
DRIVER IN WO 
AND THE STA 
RUN TABLE. 
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Chart EH. COMPLETE OBJECT CODE 



#***A2 ********* 








* STA GEN 




* 






* FINISH 




* 






* 




* 






*»##*#*»»**»*#* 








• ••• | 










* * | 










* B2 *->| 










* * 1 










»♦* * v 










#049603 .*. 










B2 *. 










.* DATA *. 










.< ON DO 


* a 




NO 




». LOOPS OPEN 
*- ROLL 










* 






"1 


*• • * 








1 


* . • * 








V 


* YES 
1 

1 






* 


E3 



»»*#*C2 ********** 



* MOVE * 
"GROUP OFF ROLL * 



f**»* **»«■»«****« 



.* POINTER = *. NO 

.LABEL OF THIS.* 

*. STMT .* 



#049601 

»»»*#D3****»»*#»* 



->* REPLACE OROUP * 
* ON ROLL * 



»#*#*E2********** 

* * 

* CONSTRUCT * 
*00 CLOSING CODE* 

* ON CODE ROLL * 

* * 



**»* **« 


»*»******* 


*»#* 


1 

1 


* * 


1 


* E3 *- 


>l 


* * 


1 


***» 


1 


#049602 


V 

#*♦#«***** 



* RESET TEMP * 

* POINTERS AND * 

* ACCUMULATORS * 

* # 



f B2 * 



*»**F3**»****«* 

i RETURN i 
t < 
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Form Y28-6638-1 

Page Revised 7/23/69 by TNL Y28-6829 

• Chart 09. PHASE 5 - IEYEXT 



G0381 

****&2********* 

* « 

* EXIT PASS « 

* « 
*************** 



t****^2* ********* 



INITIALIZE 



***************** 



***** C 2********** 

♦ PCH NMLMPY-FXA2* 
*-•-*-*-*-*-*-*-* 

♦ PCH NMLIST TBL * 

* WORDS HLDNG, * 

* POINTERS * 
***************** 



G0382 V 

*****Q2********** 
♦PCH TMP/CN-FAA2* 
*-*-•-•-*-•-*-*-* 

* PCH TEMP STGE * 

* AND CONSTANT * 

* AREA * 
***************** 



G0383 

*****£2* ********* 
♦PCH ADCON-FBA2 ♦ 
•-»-*-*-•-*-*-*-* 

♦ PCH RLD CARDS ♦ 

♦ FOR TEMP AND ♦ 

♦ CONST AREA ♦ 
***************** 



• ♦. 
F2 ♦. 

.♦OBJECT ♦ 
. ♦ LISTING 
*. REQUESTED 



******G2^ ♦*♦♦**♦♦♦* 

* PRINT HEADING ♦ 
„FOR LISTING „ 

♦**♦********+ 






00884 

*****g2* ********* 

♦ PCH CD RL-**-**- ♦ 
*_*_*_*_♦_*-*_*_♦ 

•PCH ALL OBJECT ♦ 

♦ CODE AND LST 
♦PCH pwn'n «.ons 
**♦♦*< 



*****J2» ********* 
♦RECORD STORAGE ♦ 

♦ REQUIRED FOR ♦ 
♦OBJECT MODULE. • 
♦PRINT COMPILER ♦ 

♦ STATISTICS ♦ 



l_ 



G0399 C 

*****&3********** 

♦PCH BSE RL-FDA2* 
*-*-*-*-*-*-*-*-* 

♦ PCH OBJ MOD ♦ 
♦BASE TABLE. REC+ 

* RLD INFO ♦ 
***************** 



G0K00 

*****B3* ********* 
♦PCH BR RL-FEA2 ♦ 
*-*-*-*-*-*-*-*-* 
♦PCH OBJ MODULE * 
♦ BR TABLE, ♦ 
♦RECORD RLD INFO^ 
***************** 



• ♦. 

C3 ♦. 
. ♦ *. 

.♦SUBPROGRAM 
, ARGUMENT 



G0402 

*****Q3* ********* 

♦PCH SP ARG-FFA2+ 
*-•-*-*-*-*-•-*-• 
♦PCH SUBPRGR ARG^ 

♦ LISTS RECORD ♦ 

♦ RLD INFO ♦ 
*•*••*•******♦♦♦♦ 



G0U03 

*****E3* ********* 

♦PCH GBL SP-FGA2^ 
•-*-*-•-*-•-*-*-• 

♦ PCH SUBPRGR ♦ 

♦ ADDR AND RCD ♦ 

♦ RLD INFO ♦ 
»♦**♦♦♦♦*♦**♦*♦♦♦ 



G0404 

*****P3* ********* 

♦PCH LIB RL-FHA2^ 
♦-♦-*-♦-♦-♦-♦-♦-♦ 

♦ COMPL SUBPRGR ♦ 

♦ ADDRESSES AND ♦ 

♦ RECORD RLD ♦ 
***************** 



G0005 

*****q3********** 

♦PCH ADCON-FIA2 ♦ 
»_*_*_*_*_*_*-*-♦ 

♦ PCH ADR CONST ♦ 
♦AND RECORD RLD ♦ 

♦ INFO ♦ 
***************** 



G0416 V 

*****B3********** 

♦PCH RLD RL-FJA2^ 
*_*_*_*-*-*-*.*-* 

♦ PUNCH OBJECT ♦ 
♦MOD RLD CARDS ♦ 

• • 
***************** 



G0424 V 

*****J3********** 

♦PCH END CD-FKA2^ 
♦_♦-♦_♦_*_♦_♦_*_♦ 

♦ PUNCH OBJECT • 
♦MODULE END CARD^ 

• ♦ 
***************** 



*****Q1| ********* 

* 
* 

♦RELEASE ROLLS' 

* 

* 

**************** 



****C4*** ****** 
J CHART 03 * 

t A2 : 

***•*****•*•••* 

TO INVOCATION 
PHASE 
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Chart FA. PUNCH CONSTANTS AND TEMP STORAGE 



»*»«A2»»»»«»«»» 
» PUNCH TEMP « 
•AND CONST ROLL » 

• • 



•»»»»82******»*»* 

• • 

• INITIALIZE » 

• LOCATION » 
•COUNTER AND TXT» 

• CARD • 



••••«C2 ••*»•••*•• 

• • 

• INITIALIZE • 
•POINTER TO TEMP* 
•AND CONST ROLL • 

• TOP • 



»*»» 




• * 




• D2 •-> 




• • 




• ••» V 


#038201 .». 


D2 ». 


• • • 


.» ROLL 


•. PROCE 


iSSED 



*««»»»03» ••••••*••• 

4 
-> 



PUNCH 

ANY PARTIAL 

CARD 



PUNCH PARTIAL 
TXT CARD 



INCREMENT 
POINTER 



•»*»E3 »•••••••• 

t t 

» RETURN < 



•••••F2«» •••••••• 

•MOVE NEXT GROUP* 

• FROM ROLL TO • 

• BUFFER. PUNCH • 

• IF CARD • 

• COMPLETE • 



i 02 * 
1 1 

• ••• 



11« 



Chart FB. PUNCH ADR CONST ROLL 



G0383 

»»»#A2 ********* 

* * 

* PUNCH ADR * 

* CONST ROLL • 
*************** 



»*»**B2 ********** 

* DETERMINE BE- * 
•GINNING ADR OF * 

* TEMPORARY STG * 

* AND CONST * 

* AREA * 
***************** 



* * 

* C2 *-> 



**** 
#038301 



.* DATA *. NO 

*.ON ADR CONST .* 

*• •* 



*»*»C3 ********* 

* •» 
->* RETURN * 

* * 

*»*#**»*♦»***»* 



#«*»«D2********** 

* INITIALIZE * 

* LOCATION * 

* COUNTER FROM * 

* POINTER AND * 

* BEGINNING ADR * 
*•*»#»**»»»**#*»»» 



*****E2********** 

* PLACE AREA * 

* CODE FROM * 

* ADR CONST * 

* ROLL ON * 

* RLD ROLL * 
**»****»#*»»»»»*» 



*»***F2********** 

* • 

* SET LOC CTR * 
*INTO RUNG 1 OF * 

* RLD ROLL * 

* * 
•**#*****•***••** 



*#»»*G2********** 

* PUT LOCATION * 

* FROM ADR * 

* CONST ROLL * 

* IN OUTPUT * 

* AREA * 
***#***»*»***»♦#* 



*»»#»»H2 *********** 



* PUNCH PARTIAL * 
CARD 



WO TO TXT CARD 



PUNCH PARTIAL 
TXT CARD 



******»#*»»»♦ 
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Chart FC. PUNCH OBJECT CODE 
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INITIALIZE 

LOCAT ION 

COUNTER + 

CODE ROLL 

POINTER 



.*ADDRESS*. 
► CONSTANT 
DEFINITION 



STORE 

LOCATION 

COUNTER 



.*DATA STILL 
TO BE 
». PROCESSED. 



PUNCH ANY 
REMAINING 
•PARTIAL CARD 



*«»**C5»*****»*« 

* DEFINE LABEL 

* ON BRANCH 
->» TABLE ROLL 1= 

» NECESSARY PUT 
IN LIST AREA 



*###*« 



»##** 



GET 

NEXT 

INSTRUCTION 



•♦*«03»***« 
' RETURN 



MOVE INSTR TO 

OUTPUT AREA 

•PUNCH IF FULL* 



•PROGRAM BREAK. 



PUNCH ANY 
REMAINING 
•PARTIAL CARD 



»«*«*F4 #*«*»**«*« 
» REINITIALIZE * 
•LOCATION COUNTR* 
• TO 1ST FULL » 
•WORD AFTER TEMP* 
» + CONST AREA * 



A CONSTANT 



•MOVE TO OUTPUT 
> AREA PUNCH IF 
•CARD COMPLETE* 



~] 



INSTRUCTION . »- 



MOVE DATA TO 
OUTPUT AREA 
PUNCH IF 
» COMPLETE 



•.LIST FLAG ON .' 



LIST CODE 



Chart FD, 



PUNCH BASE TABLE 



»*#*A2 ********* 
f PUNCH * 
f BASE ROLL * 
t * 



****#B2********** 
» » 

* INITIALIZE * 

* BASE TABLE * 

* LOCATION * 

* COUNTER * 
»*«*»*»»«#****»** 



»*#**C2********** 

* * 

* INITIALIZE * 
•POINTER TO BASE* 

* TABLE ROLL * 

* * 



SWEEP BASE 
BRANCH ROLL 



*«***D2********** 



* INITIALIZE * 
*TXT CARD BUFFER* 



I 
**** | 
* | 
* E2 *-> 



G0400 



E2 



* m 



* • 



.* ALL *. YES 

ROLL .* 

♦.PROCESSED.* 
* • . * 

* • . * 
* NO 



*»*#*F2 ********** 



* INCREMENT * 
•POINTER TO ROLL* 



*»»»*##**»*#»#»** 



»»***G2»» *****•*• 

* * 

♦ RECORD ESD • 

• + LOC COUNTER • 

* ON RLD ROLL • 
» * 
-ft**************** 



*»*»»H2 ********** 

* * 

* MOVE GROUP TO • 
•BUFFER PUNCH IF* 

* CARD COMPLETE » 

* * 

I 
I 



• *** 

* * 

* E2 * 
» * 

• ••• 



*****»E3*********** 

• PUNCH * 
-> ANY PARTIAL 
* CARD * 

*»#»*»#****#* 



****F3*****»*** 

* * 

* RETURN * 
t * 
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Chart FE. PUNCH BRANCH TABLE 



****A2********* 
<• PUNCH * 
f BRANCH ROLL * 



***#*B2********** 

* • 

* INITIALIZE * 

* BRANCH TABLE * 

* LOC COUNTER * 

* * 



#**»*C2********** 

* * 

* INITIALIZE * 

* POINTER TO » 

* BRANCH TABLE * 

* ROLL * 



SWEEP BASE 
BRANCH ROLL 



*****D2** ******** 



* INITIALIZE * 
*TXT CARD BUFFER* 



«»#*#***»***#**** 
***# 



* E2 *— > 



'040001 



, * ALL *. 

ROLL 

*. PROCESSED.* 



* NO 
I 



***»*F2*** ******* 



* INCREMENT * 
♦POINTER TO ROLL* 



***#**»***#*###** 



*»***G2********** 

* * 

* RECORD ESD * 
*AND LOC COUNTER* 

* ON RLD ROLL * 

* » 



##*#*H2********** 

* MOVE * 

* GROUP TO * 

* BUFFER, PUNCH * 

* IF CARD * 

* COMPLETE * 



* E2 * 



* PUNCH * 
-> ANY PARTIAL 
* CARD * 



**»*F3**»**»»»* 
I- i 

* RETURN * 



118 



Chart FF. PUNCH SUBPROGRAM ARGUMENT LISTS 



PUNCH 

SPROG ARG 

ROLL 



t****B2****»*««« 
'INITIALIZE LOC. 
' COUNTER. TXT 
t CARD OUTPUT 
► AREA AND 
f POINTER 



ALL 

ROLL 

.PROCESSED. 



PUNCH ANY 
REMAINING 
"PARTIAL CARD 



PUNCH 
PARTIAL 
TXT CARD 



»#*D3****< 
RETURN 



►»»«E3»»»«»»*»« 
MOVE GROUP 

TO TXT 

OUTPUT AREA 

PUNCH IF 

CARD COMPLETE 



TEMP 
AND CONST 
. POINTER . 



COMPUTE 

APPROPRIATE 

LOCATION 



COMPUTE 

APPROPRIATE 

LOCATION 



'RECORD RLD INFO* 



INSURE 

•MINUS 1 TAG 

MARK 



» MOVE 
•DATA TO OUTPUT 
» AREA 
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Chart FG. PUNCH SUBPROGRAM ADDRESSES 



PUNCH 

GLOBAL SPRQG 

ROLL 



FLIP THE 

GLOBAL SPROG 

ROLL 



» STORE « 
"LOCATION ON RLD* 
► ROLL « 



• MOVE 
» TO OUTPUT 
►AREA, PUNCH IF 
► CARO COMPLETE 



TURN OFF * 

SUBPROGRAM « 

4G. MOVE WORD* 

OFF « 



PUNCH 

ANY PARTIAL 

CARD 



MOVE ESD 

NUMBER TO R 

ROLL 



» DETERMINE 
» LOCATION OF 
•SUBPGM ADDRESS 



: >UUPROG. FLAG. 



STORE 

LOCATION II 

LOC. COUNTEI 



1 NI T I ALI ZE 
OUTPUT AREA, 

TURN ON 
SUBPROG. FLAG 
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Chart FH. COMPLETE ADDRESSES FROM LIBRARY 



PUNCH USED 

LIBRARY 

ROLL 



FLIP 

THE USED LIE 

ROLL 



» STORE * 
►LOCATION ON RLD* 
► ROLL * 



»#**C3»«»*» 
» RETURN 



• MOVE 

• TO OUTPUT 
•AREA. PUNCH IF 

• CARD COMPLETE 



• TURN OFF « 

* SUBPROGRAM « 
•FLAG, MOVE WORD* 
► OFF ROLL * 



* D4 *-> 

#40404 



PUNCH 

ANY PARTIAL 

CARD 



MOVE NEXT 

WORD OFF + 

DESTROY 



MOVE 

ESD NUMBER TO 

RLD ROU 



DETERMINE 

LOCATION OF 

FUNCT ION 

ADDRESS 



•.SUBPROGR FLAG. 



» STORE * 
"LOCATION IN LOO 
» COUNTER < 



» INIT I ALIZE 
» OUTPUT AREA, 
» TURN ON 
•SUBPROGRAM FL/ 
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Chart FI. PUNCH ADDRESS CONSTANTS 



G0405 

****A2********* 

* 4 

* PUNCH < 

* ADCON ROLL * 
***♦*«*««*#**** 

**** 

* * 

* B2 * — > 



*.DATA ON ROLL 



* * 
->* RETURN * 

# i 

*****♦**«»*»#** 



****»C2********** 

* * 

* SET AREA * 
*CODE FROM LAST * 

* WORD ON ROLL * 
» # 



****»D2** ******** 

* SET ADDRESS * 

* WHERE CONST * 
*IS TO BE LOADED* 
♦FROM NEXT WORD * 

* ON ROLL * 
*•••»****••**•*** 



»**«**E2** ********* 

* MOVE INFO * 

TO OUTPUT 

AREA AND PUNCH* 

************* 



«****F2********** 
« * 

* SET * 

* UP RLD ROLL * 

* ENTRY * 
« * 



• ••* 
t * 
► B2 * 
( ♦ 
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Chart FJ. PUNCH RLD CARDS 



ORDER AND 

PUNCH RLD 

ROLL 



SORT 

RLD CARDS ON 

ROLL 



»SET ESD NUMBER 
•FROM AREA CODE 

* AND PUT IN 

* RLD CARD 
» IMAGE 



SET 

LAST LOAD 

ADDRESS FROM 

RLD GROUP 



THE SORT PUTS 

ENTRIES WITH LIKE 

ESD NUMBERS TOGETHER, 

ADR. CONST AND 

TEMP AND CONST ROLLS 

ARE USED AS TEMP 

STORAGE 



•ROOM ON CARD 



J 



PUNCH 

REMAINING 

DATA 



141604 V 

»**»*D5*»*»***»H< 
•PLACE PREVIOUS 

* VALUE IN CARD 

* MARKED FOR NO 

* CONTINUATION 

* AND UPDATE' 



. * «. .* ROOM ». 

.» ». YES YES .*FOR NEW L5D« 

->*.ROOM ON CARD .* t r *. NO. ON CARD 

I «. .< 



YES 
->• E4 



SAVE NEW ESD 



»*#*»G4«*»*««<** 
•PLACE PREVIOUS 
» VALUE IN CARD 
» MARKED FOR 
» CONTINUATION 
» AND UPDATE 
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Chart FK. PUNCH END CARDS 



G0424 

#*»#A2********* 

* « 

* PUNCH * 

* END CARD * 

I 



»***»B2** ******** 
» * 

# * 

*SET UP END CARD* 

« * 

# * 
»■*«»»*#*#******#* 

I 

I 
I 
I 
I 

V 
f#»***C2 *********** 

# * 
PUNCH END CARD 

# * 



****D2********* 

l i 

t RETURN * 

i * 
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Chart FL. PUNCH NAMELIST TABLE POINTERS 



»*#»A2********* 
» PUNCH « 
» NAMELIST MPY * 
» DATA * 

»•»»•»»»»*»»••• 



.» DATA ON • 

.NAMELIST MPY 

••DATA ROLL." 



*»»»»C2********* 

* 

•CALCULATE NEXT 

» ADDRESS IN 

* TEMPORARY 

* STORAGE AREA 
••«••*•••*•*••*« 



#056401 

#»###02********* 

* MOVE LOCATION 
» OF POINTER 

» FROM NAMELIST 
» MPY DATA 

* ROLL 



m»B 3* ***»•#*< 
RETURN 

»•**»»»»»••*•* 



(••••B4***« 



»••••*•»** 



#####C4********** 

* INCREASE * 
« TEMPORARY * 
•STORAGE POINTER* 

• 4 

#*•#•#»#••###•*•• 



RETURN 

•*••••*••« 



»»»##F2********** 

• » 
•INITIALIZE TXT • 

• CARD TO LOAD • 
» LOCATION • 

• INDICATED » 



• ••••(^••••••••* 

• SET 

» UP RLD ENTRY 
► FOR WORD IN 
•NAMELIST TABLE 
• 
»••»»»»»»»•»»»»« 



•MOVE MULTIPLIER* 

• TO TEMP AND • 

• CONST ROLL • 



• MOVE 
•POINTER TO TXT 

• CARD IMAGE 
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APPENDIX A: THE POP LANGUAGE 



This appendix deals with the POP lan- 
guage, the language in which the FORTRAN IV 
(G) compiler is written. The parts of the 
appendix describe this language in the 
following way: 

• The first part describes the POP 
instructions, which are grouped accord- 
ing to their functions. 

• The second part describes the labels 
used in the routines of the compiler. 

• The third part discusses the assembly 
and operation of the compiler, as it is 
affected by the use of the POP lan- 
guage. This part ends with a cross- 
reference list giving the mnemonic for 
each instruction, the hexadecimal code 
which represents it, and the instruc- 
tion group in which it is described. 



POP INSTRUCTIONS 



For the purpose of describing their 
operation, the POP instructions have been 
divided into groups according to the pri- 
mary function which they perform. Where a 
particular POP instruction pertains to more 
than one group, it is described in the 
group which discusses its most important 
functions. 

In the descriptions of the instructions, 
the following notational conventions are 
employed: 

1. Parentheses are used to indicate "the 
contents of;" thus (G) stands for the 
contents of storage address G, where 
all addresses are fullword addresses. 

2. The arrow is used to indicate trans- 
mission in the direction of the arrow; 
(G) + 1 — > G reads: the contents of 
storage address G, plus one, are 
transmitted to storage address G. 

3. Wn (n=l, 2, 3, . .. ) refers to the 
BOTTOM, BOTTOM- 1, ... etc., words on 
the WORK roll. 

It should be noted that in many cases 
the address field, G, of the instruction 
contains a value other than a storage 
address (for instance, a roll name). In 
most of these cases, the symbolic reference 
which is used is defined in the program by 
means of an EQU card. 



The mnemonic codes for the POP instruc- 
tions are of the form IEYxxx. In the 
following discussion, the characters IEY 
are omitted from the mnemonics in the 
interest of ease of reading, and only the 
xxx portion of the code appears. 



TRANSMISSIVE INSTRUCTIONS 



The instructions described in this sec- 
tion are primarily involved in moving 
information from place to place in storage. 

APH G: Assign and Prune Half 

The upper half word of (WO) — > the 
lower half word of G, where G is a 
storage address; the upper half word 
of G remains unaltered; the BOTTOM 
of the WORK roll is reduced by 
four, thus pruning WO. 

ARK G: Assign Relative to Pointer and Keep 

(WO) — > P + (G) , where P is the 
address defined by the pointer in 
Wl and G is a storage address; the 
BOTTOM of the WORK roll is reduced 
by four, thus pruning the value 
assigned and keeping the pointer. 

ARP G: Assign Relative to Pointer 

(WO) — > P + (G), where P is the 
address defined by the pointer in 
Wl and G is a storage address; the 
BOTTOM of the WORK roll is reduced 
by eight, thus pruning the current 
WO and Wl. 

ASK G: Assign to Storage and Keep 

(WO) — > G, where G is a storage 
address; the BOTTOM of the WORK 
roll is unchanged. 

ASP G: Assign to Storage and Prune 

(WO) — > G, where G is a storage 
address; the BOTTOM of the WORK 
roll is reduced by four, thus prun- 
ing the current WO. 

BOP G: Build on Polish 

The control driver G is built on 
the POLISH roll, where the G field 
of the instruction is the lower 
eight bits of the ADDRESS portion 
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of the desired driver. (The TAG 
field of the pointer contains zero, 
and the OPERATOR field contains 
255.) 



BOTTOM Of the 
increased by four. 



WORK 



EAW G: Effective Address to Work 



roll 



is 



CAR G: Copy and Release 

Copy roll G, where G is a roll 
number, to roll T, and release roll 
G (i.e., restore it to its condi- 
tion before the last reserve) ; the 
number T is found in WO; the BOTTOM 
of the WORK roll is reduced by 
four. If roll G is in the reserved 
state when this instruction is 
executed, the instruction sets its 
BOTTOM to (TOP) minus four; if the 
roll is not reserved, BOTTOM is set 
to (BASE). 

CLA G: Clear and Add 

Clear WO; (G) — > WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged. 

CNT G: Count 

The number of words on roll G — > 

WO, where G is a roll number; the 

BOTTOM of the WORK roll is 
increased by four. 

CPO G: Copy PI ex On 

The pi ex pointed to by the pointer 
in WO is copied to roll G, where G 
is the number of the target roll, 
except for the first word of the 
plex (which holds the number of 
words in the plex, exclusive of 
itself). The BOTTOM of the WORK 
roll is reduced by four, thus prun- 
ing the pointer. The BOTTOM of 
roll G is increased by four for 
each word moved; the BOTTOM of the 
original roll is unchanged. 

CRP G: Copy Relative to Pointer 

Copy roll S to roll G, where G is a 
roll number, beginning with the 
group indicated by the pointer in 
WO, to the BOTTOM of the roll. The 
roll number S is also provided by 
the pointer in WO. The BOTTOM of 
roll S is decreased by the number 
of bytes moved. The BOTTOM of roll 
G is increased by the number of 
bytes moved. The BOTTOM of the 
WORK roll is unchanged; thus, the 
pointer remains. 

EAD G: Extract Address 

The ADDRESS portion of (G) — > WO, 
where G is a storage address; the 



G — > WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 



ECW G: Effective Constant Address to Work 

G — > WO, where G is a storage 
address which refers to a constant 
under a constant base. The BOTTOM 
of the WORK roll is increased by 
four. 



EOP G: Extract Operator 

The OPERATOR portion of (G) — > WO 
(right adjusted) , where G is a 
storage address; the BOTTOM of the 
WORK roll is increased by four. 



ETA G: Extract Tag 

TAG portion of (G) — > TAG portion 
of WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 

FET G: Fetch 

(G) — > WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 

FLP G: Flip 

Invert the order of roll G, where G 
is a roll number, word for word. 

FRK G: Fetch Relative to Pointer and Keep 

(P + (G) ) — > WO, where P is the 
address defined by the pointer in 
WO and G is a storage address; the 
BOTTOM Of the WORK roll is 
increased by four; thus, the 
pointer remains in Wl. 

FRP G: Fetch Relative to Pointer 

(P + (G)) — > WO, where P is the 
address defined by the pointer in 
WO and G is a storage address; the 
BOTTOM of the WORK roll is 
unchanged; thus, the pointer is 
destroyed. 

FTH G: Fetch Half 

The lower halfword of (G) — > upper 
half word of WO, where G is a 
storage address; the lower half- 
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word of WO is set to zero; the 
BOTTOM of the WORK roll is 
increased by four. 

IAD G: Insert Address 

The ADDRESS portion of (G) — > the 
ADDRESS portion of the pointer in 
WO, where G is a storage address; 
the BOTTOM of the WORK roll is 
unchanged. 

IOP G: Insert Operator 

G — > OPERATOR portion of the 
pointer in WO, where the G field of 
the instruction is the desired 
OPERATOR value; the BOTTOM of the 
WORK roll is unchanged. 

ITA G: Insert Tag 

TAG portion of (G) — > TAG portion 
of the pointer in WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged. 

ITM G; Insert Tag Mode 

Mode portion of the TAG field of 
(G) — > mode portion of the TAG 
field of the pointer in WO, where G 
is a storage address; the BOTTOM of 
the WORK roll is unchanged. 

LCE G: Last Character Error 

The last character count and the 
address G — > ERROR roll, where G 
is the address of the message for 
the error. The count of errors of 
the severity associated with the 
message is increased by one, and 
the MAX STA ERROR NUMBER (which 
indicates the highest severity 
level of errors for the present 
statement) is updated as required. 

LCF G: Last Character Error if False 

If (ANSWER BOX) = false, the last 
character count and the address 
G — > ERROR roll, where G is the 
address of the message for the 
error. The count of errors of the 
severity associated with the mes- 
sage is increased by one, and the 
MAX STA ERROR NUMBER is updated as 
required. If (ANSWER BOX) = true, 
the instruction does nothing. 



LCT G: Last Character Error if True 

If (ANSWER BOX) = true, the last 
character count and the address 
G — > ERROR roll, where G is the 
address of the message for the 



error. The count of errors of the 
severity associated with the mes- 
sage is increased by one, and the 
MAX STA ERROR NUMBER is updated as 
required. If (ANSWER BOX) = false, 
the instruction does nothing. 



LGP G: Load Group from Pointer 



Loads the group specified by the 
pointer in WO into SYMBOL 1, 2, and 
3, DATA 0, 1, 2, 3, 4, and 5. The 
number G is the number of bytes to 
be loaded; if G=0, the entire group 
is loaded. The BOTTOM of the WORK 
roll is unchanged; hence, the 
pointer remains in WO. 



LSS G: Load Symbol from Storage 



Loads the (G and G+4), where G is a 
storage address, into SYMBOL 1, 2, 
and 3, and DATA 0. 



MOC G: Move on Code 

G ha If words, where G is an even 
number, are to be moved from the 
WORK roll to the CODE roll. A word 
containing a special value in the 
first two bytes and the number of 
words transferred in the last two 
bytes are first placed on the CODE 
roll. G/2 words of information are 
then moved from the WORK roll to 
the CODE roll; the BOTTOM of the 
CODE roll is increased by four for 
each word placed on the roll; the 
BOTTOM of the WORK roll is reduced 
by four for each word moved from 
the roll. A location counter is 
increased by the number of bytes of 
object code placed on the roll. 

MON G: Move on 

(WO) — > roll G, where G is the 
roll number; the BOTTOM of roll G 
is increased by four; the BOTTOM of 
the WORK roll is decreased by four. 

NOG G: Number of Groups 

The number of groups on roll G — > 
WO, where G is the roll number; the 
BOTTOM of the WORK roll is 
increased by four. 

NOZ G: Nonzero 

A nonzero value — > G, where G is a 
storage address. 
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PGO G: Place Group On 



ZER G: Zero 



A group from SYMBOL 1, 2, and 3 and 
DATA 0, 1, 2, 3, 4, and 5 — > roll 
G f where G is the roll number, by 
group status; the BOTTOM of roll G 
is increased by group size. 



-- > G, 
address. 



where G is 



a storage 



ARITHMETIC AND LOGICAL INSTRUCTIONS 



PGP G: Place Group from Pointer 

The group in SYMBOL 1, 2, 3, DATA 
0, 1, 2, 3, 4, and 5 is placed on a 
roll according to the pointer in 
WO. The number G is the number of 
bytes to be moved; if G=0, an 
entire group is moved; the BOTTOM 
of the WORK roll is unchanged. 



PLD G: Precision Load 

(G and G+4) — > MPAC 1 and MPAC 
where G is a storage address. 

PNG G : Pointer to New Group 



2, 



Builds a pointer to the first byte 
of the next group to be added to 
roll G, where G is the roll number, 
and places the pointer in WO; the 
BOTTOM of the WORK roll is 
increased by four. 



POC G: Place on Code 



The data located at storage address 
G+4 and following is to be moved to 
the CODE roll. The number of half- 
words to be moved is stored in 
location G and is an even number. 
A word containing a special value 
in the first two bytes and the 
number of words of data in the last 
two bytes is first placed on the 
CODE roll. The indicated data is 
then moved to the CODE roll, and 
the BOTTOM of the CODE roll is 
increased by four for each word 
placed on the roll. A location 
counter is increased by the number 
of bytes of object code placed on 
the roll. 



The following instructions are primarily 
designed to perform arithmetic and logical 
manipulations. 

ADD G: Add 

(G) + (WO) — > WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged ; hence, the 
initial contents of WO are 
destroyed. 

AFS G: Add Four to Storage 

(G) + 4 — > G, where G is a storage 
address. 

AND G: And 

(G) AND (WO) — > WO; that is, a 
logical product is formed between 
(G) and (WO), and the result is 
placed in WO. The BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 

DIM G: Diminish 

(G) - 1 — > G, where G is a storage 
address. 

DIV G: Divide 

(WO) / (G) — > G, where G is a 
storage address; the remainder, if 
any, from the division is lost; a 
true answer is returned if there is 
no remainder; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 

IOR G: Inclusive Or 



PST G: Precision Store 

(MPAC 1 and MPAC 2) — > G and G+4, 
where G is a storage address. This 
instruction performs a doubleword 
store. 



SWT G: Switch 



Interchanges (WO) and (G), where G 
is a storage address; the BOTTOM of 
the WORK roll is unchanged. 



The inclusive OR of (WO) and (G), 
where G is a storage location, is 
formed, and the result is placed in 
WO. The BOTTOM of the WORK roll is 
unchanged; hence, the initial con- 
tents of WO are destroyed. 

LLS G: Logical Left Shift 

(WO) are shifted left G places; the 
result is left in WO; bits shifted 
out at the left are lost, and 
vacated bit positions on the right 
are filled with zeros. 
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LRS G: Logical Right Shift 

(WO) are shifted right G places; 
the result is left in WO; bits 
shifted out at the right are lost, 
and vacated bit positions on the 
left are filled with zeros. 



TLY G: Tally 



(G) + 1 — > 

address. 



where G is a storage 



DECISION MAKING INSTRUCTIONS 



These instructions inspect certain con- 
ditions and return either a true or false 
answer in the ANSWER BOX. Some of the 
instructions also transmit stored informa- 
tion from place to place. 



CSA G: character Scan with Answer 

If G = (CRRNT CHAR), the scan arrow 
is advanced and a true answer is 
returned; otherwise, the scan arrow 
is not advanced and a false answer 
is returned. 

LGA G: Load Group with Answer 



The group from 
G, where G is 
roll G has been 
into SYMBOL 1, 
3, 4, and 5 
necessary) ; if 
if the group i 



the BOTTOM of roll 

the roll number and 

flipped, is loaded 

2, 3, DATA 0, 1, 2, 

(as many words as 

the roll is empty or 

s a marker symbol, a 



MOA G: 



MPY G: Multiply 

(G) * (WO) — > WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. QSA G: 

PSP G: Product Sign and Prune 

The exclusive OR of (WO) and (G), 
where G is a storage location, 
replace the contents of G; the 
BOTTOM of the WORK roll is reduced 
by four, thus pruning WO. 



SUB G: Subtract 

(WO) - (G) — > WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 



SAD G: 



false answer is returned; other- 
wise, a true answer is returned; 
the BOTTOM of roll G is reduced by 
group size. 

Move off with Answer 

If roll G, where G is the roll 
number, is empty, a false answer is 
returned. Otherwise, the BOTTOM of 
roll G is reduced by four, pruning 
the word moved; the BOTTOM of the 
WORK roll is increased by four; a 
true answer is returned. 

Quote Scan with Answer 

If the quotation mark (sequence of 
characters) beginning at storage 
address G (the first byte in the 
quotation mark is the number of 
bytes in the quotation mark) is 
equal to the quotation mark start- 
ing at the scan arrow, advance the 
scan arrow to the next active 
character following the quotation 
mark, and return a true answer; 
otherwise, do not advance the scan 
arrow and return a false answer. 

Set on Address 

If G = ADDRESS portion of the 
pointer in WO, return a true answ- 
er; otherwise, return a false 
answer. 



SBP G: Search by Stats from Pointer 

Search the roll specified by the 
pointer in WO, beginning with the 
group following the one specified 
by the pointer for a group which is 
equal to the group in the central 
items SYMBOL 1, 2, 3, etc., accord- 
ing to the group stats values 
stored at locations G+4 and G+8 
(these values are in the same order 
as those in the group stats 
tables). The roll number multip- 
lied by four is stored at location 
G. If a match is found, return a 
true answer, replace the pointer in 
WO with a pointer to the matching 
group, and continue in sequence. 
If no match is found, return a 
false answer, prune the pointer in 
WO, and continue in sequence. This 
instruction is used to continue a 
search of a roll according to group 
stats values other than those norm- 
ally used for the roll. 

SBS G: Search by Stats 

If the roll, whose number multip- 
lied by four is in storage at 
location G, is empty, return a 



Appendix A: The POP Language 131 



false answer. Otherwise, search 
that roll against the central items 
SYMBOL 1, 2, and 3 and DATA 0, 1, 
2, 3, 4, and 5, as defined by the 
group stats values stored at loca- 
tions G+4 and G+8 (these values are 
in the same order as those in the 
group stats tables); if a match is 
found, place a pointer to the 
matching group in W0 f increase the 
BOTTOM of the WORK roll, and return 
a true answer; if no match is 
found, return a false answer. This 
instruction is used to search a 
roll according to group stats 
values other than those normally 
used for that roll. 



SCE G: Set if Character Equal 



SNE G: Set if Not Equal 

If (WO) * (G) , where G is a storage 
address, a true answer is returned; 
otherwise, a false answer is 
returned. 



SNZ G: Set if Nonzero 

If (G) * 0, where G is a storage 
address, return a true answer; 
otherwise, return a false answer. 



SOP G: Set on Operator 

If G = OPERATOR portion of the 
pointer in WO, return a true answ- 
er; otherwise, return a false 
answer. 



If G = j(CRRNT CHAR), return a true 
answer; otherwise, return a false 
answer; in neither case is the scan 
arrow advanced. 



SCK G: Set on Character Key 



SPM G: Set on Polish Mode 

If the mode portion of the TAG 
field of the (G) = the mode portion 
of the TAG field of the pointer in 
PI, where G is a storage addess, 
return a true answer; otherwise, 
return a false answer. 



If (CRRNT CHAR) displays any of the 
character keys of G, where G is a 
character code whose bit settings 
describe a group of characters, 
return a true answer; otherwise, a 
false answer is returned; in neith- 
er case is the scan arrow advanced. 



SPT G: Set on Polish Tag 

If the TAG field of the (G) = the 
TAG field of the pointer in PI, 
where G is a storage address, 
return a true answer; otherwise, 
return a false answer. 



SFP G: search from Pointer 

Search the roll specified by the 
pointer in WO, beginning with the 
group following the one specified 
by the pointer in WO, for a group 
which is equal to the group in 
SYMBOL 1, 2, 3, DATA 0, 1..., etc., 
by roll statistics. If a match is 
found, return a true answer, 
replace the pointer in WO with a 
pointer to the matching group, and 
jump to G, where G must be a local 
address. If no match is found, 
return a false answer, prune the 
pointer in WO (reduce the BOTTOM of 
the WORK roll by four), and con- 
tinue in sequence. 



SLE G: Set if Less or Equal 

If (WO) < (G), where G is a storage 
address, a true answer is returned; 
otherwise, a false answer is 
returned. The comparison made con- 
siders the two values to be signed 
quantities. 



SRA G: Search 

If roll G, where G is the roll 
number, is empty, return a false 
answer; otherwise, search roll G 
against the central items SYMBOL 1, 
2, and 3 and DATA 0, 1, 2, 3, 4, 
and 5, as defined by the roll 
statistics; if a match is found, 
place a pointer to the matching 
group in WO, increase the BOTTOM of 
the WORK roll, and return a true 
answer; if no match is found, 
return a false answer. 

SRD G: Set if Remaining Data 

If roll G, where G is the roll 
number, is not empty, return a true 
answer; otherwise, return a false 
answer. 

STA G: Set on Tag 

If the TAG portion of (G) = the TAG 
portion of the pointer in WO, where 
G is a storage address, return a 
true answer; otherwise, return a 
false answer. 
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STM G: Set on Tag Mode 

If the mode portion of the TAG 
field of the (G) = the mode portion 
of the TAG field of the pointer in 
WO, where G is a storage address, 
return a true answer; otherwise, 
return a false answer. 



JUMP INSTRUCTIONS 



The following instructions cause the 
normal sequential operation of the POP 
instructions to be altered, either uncondi- 
tionally or conditionally. See the sec- 
tions "Labels" and "Assembly and Operation" 
in this Appendix for further discussion of 
jump instructions. 

CSF G: Character Scan or Fail 

If G = (CRRNT CHAR), advance the 
scan arrow to the next active 
character; otherwise, jump to 
SYNTAX FAIL. 

JAF G: Jump if Answer False 

If (ANSWER BOX) = false, jump to G, 
where G is either a global or a 
local address; otherwise, continue 
in sequence. One of two operation 
codes is produced for this instruc- 
tion depending on whether G is a 
global or local label. 

JAT G: Jump if Answer True 

If (ANSWER BOX) = true, jump to G, 
where G is either a global or a 
local address; otherwise, continue 
in sequence. One of two operation 
codes is produced for this instruc- 
tion depending on whether G is a 
global or a local label. 

JOW G: Jump on Work 

If (WO) = 0, decrease the BOTTOM of 
the WORK roll by four and jump to 
G, where G is either a global or a 
local address; otherwise, reduce 
word by one, — > WO, and continue 
in sequence. One of two operation 
codes is produced for this instruc- 
tion, depending on whether G is a 
global or a local label. 

JPE G: Jump and Prepare for Error 

The following values are saved in 
storage: the location of the next 
instruction, the last character 
count, the BOTTOM of the EXIT roll, 
and the BOTTOM of the WORK roll. 



The JPE FLAG is set to nonzero, and 
a jump is taken to G, which may 
only be a local address. 

JRD G: Jump Roll Down 

This instruction manipulates a 
pointer in WO. If the ADDRESS 
field of that pointer is equal to 
(pointing to the word preceding the 
beginning of a reserved area), the 
ADDRESS field is increased to four. 
If the ADDRESS field of the pointer 
is equal to any legitimate value 
within the roll, it is increased by 
group size. If the ADDRESS field 
of the pointer indicates a location 
beyond the BOTTOM of the roll, the 
pointer is pruned (the BOTTOM of 
the WORK roll is reduced by four) , 
and a jump is made to the location 
G, which must be a global address. 

JSB G: Jump to Subroutine 

Return information is placed on the 
EXIT roll; jump to G, which is a 
global address. 

JUN G: Jump Unconditional 

Jump to G, which is either a global 
or a local address. One of two 
operation codes is produced for 
this instruction, depending on 
whether G is a global or a local 
label. 

QSF G: Quote Scan or Fail 

If the quotation mark (sequence of 
characters) beginning at storage 
address G (the value of the first 
byte in the quotation mark is the 
number of bytes in the quotation 
mark) is equal to the quotation 
mark starting at the scan arrow, 
advance the scan arrow to the first 
active character beyond the quota- 
tion mark; otherwise, jump to SYN- 
TAX FAIL. 

XIT : Exit 

Exit from the interpreter; the code 
which follows is written in 
assembler language. 



ROLL CONTROL INSTRUCTIONS 



These instructions are concerned with 
the control of the rolls used in the 
compiler. 
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POW G: Prune off Work 



Reduce the BOTTOM of the WORK roll 
by four times G, where G is an 
integer, thus pruning G words off 
the WORK roll. 



REL G: Release 

Restore roll G, where G is the roll 
number, to the condition preceding 
the last reserve; this sets BOTTOM 
to (TOP) reduced by four if the 
roll is reserved, or to (BASE) if 
the roll is not reserved; TOP is 
set to the value it had before the 
reserve. 

RSV G: Reserve 

Reserve roll G, where G is the roll 
number, by storing (TOP) - (BASE) 
on the roll, increasing BOTTOM by 
four, and setting TOP to (BOTTOM) ; 
this protects the area between BASE 
and TOP, and allows ascending 
addresses from TOP to be used as a 
new, empty roll. 



CODE PRODUCING INSTRUCTIONS 



These POP instructions construct object 
module code on the CODE roll. Each object 
module instruction constructed results in 
the placing of a 2-word group on the CODE 
roll. The instruction generated, in bi- 
nary, is left justified in this group. In 
the case of half word instructions, the 
remainder of the first word is filled with 
zero. The second word contains a pointer 
to the instruction operand, except in the 
case of 6-byte instructions when the last 
two bytes of the group contain the value 
zero. 



BID G: Build Instruction Double 

The instruction indicated by G, 
where G is an instruction number 
which indicates the exact instruc- 
tion to be generated, is built on 
the CODE roll, where WO contains a 
pointer to the first operand and Wl 
contains a pointer to the second 
operand. The BOTTOM of the CODE 
roll is increased by eight. The 
BOTTOM of the WORK roll is reduced 
by eight; thus, both pointers are 
pruned. A location counter is in- 
creased by one for each byte of the 
instruction. 



BIM G: Build Instruction by Mode 

The instruction indicated by G, 
where G is an instruction number 
which indicates the class of the 
instruction only. For example, 
LOAD INSTR as opposed to LE INSTR 
is built on the CODE roll, where WO 
contains a pointer to the second 
operand. A pointer to the accumu- 
lator which holds the first operand 
is contained in the variable CRRNT 
ACC. The instruction mode is 
determined by inspecting the TAG 
fields of the pointers; the BOTTOM 
of the CODE roll is increased by 
eight; the BOTTOM of the WORK roll 
is reduced by four, thus pruning 
the pointer. A location counter is 
increased by one for each byte of 
the generated instruction. 

BIN G: Build Instruction 

The instruction indicated by G, 
where G is an instruction number 
which indicates the exact instruc- 
tion to be built, is constructed on 
the CODE roll. The WORK roll holds 
from zero to three words of infor- 
mation required for producing the 
instruction. For instructions 
requiring no operands, nothing 
appears on the WORK roll. For 
instructions requiring one operand, 
a pointer to that operand appears 
in WO. For two operand instruc- 
tions, a pointer to the first 
operand appears in WO and a pointer 
to the second operand is in Wl. 
For input/output instructions, Wl 
holds a constant which* becomes part 
of the instruction. For storage- 
to-storage move instructions, W2 
holds the length. The BOTTOM of 
the CODE roll is increased by eight 
to reflect the addition of the 
group. The BOTTOM of the WORK roll 
is reduced by four for each word of 
information found on that roll; 
thus, all the information is 
pruned. A location counter is 
increased by one for each byte of 
the instruction. 



ADDRESS COMPUTATION INSTRUCTIONS 

The POP instructions whose G fields 
require storage addresses may be used to 
refer to WORK roll groups , provided the 
storage address of the desired group is 
first computed. This computation must be 
performed at execution time, since the 
location of WO, for example, varies as the 
program is operated. The instructions in 
this category perform these computations and 
jump to the appropriate POP, which then op- 
erates using the computed address. 
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WOP G: WO POP 



LABELS 



Compute the address of the current 
WO and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 



W1P G: Wl POP 



Compute the address of the current 
Wl and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 



W2P G: W2 POP 



Compute the address of the current 
W2 and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 



W3P G: W3 POP 



Compute the address of the current 
W3 and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 



WUP G: WU POP 



Compute the address of the current 
WU and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 



In the POP language, storage locations 
containing instructions or data may be 
named with two types of labels, global 
labels and local labels. Global labels are 
unique within each phase of the compiler 
(but not from one phase to another) ; these 
labels may be referred to from any point in 
the phase. Local labels are also unique 
within each phase (but not between phases) ; 
however, these labels may be referred to 
only within the global area (that is, the 
area between two consecutive global labels) 
in which they are defined. 



GLOBAL LABELS 



The global labels which appear on a 
System/360 assembler listing of the compil- 
er are distinguished from local labels in 
that the global labels do not begin with a 
pound sign. Most of the global labels are 
of the form Gdddd, where each d is a 
decimal digit and the 4 -digit value dddd is 
unique for the global label. Labels of 
this form are generally assigned in ascend- 
ing sequence to the compiler routines. All 
remaining global labels are limited to a 
length of seven characters. 

In contrast, the routine and data names 
used throughout this publication are 
limited only to a length of 30 characters. 
A comment card containing the long name 
used here precedes the card on which each 
global label is defined. In addition, the 
longer name appears as a comment on any 
card containing a POP instruction which 
refers to the global label. 

Example : 

G0336 STA GEN FINISH 
| G0336 IEYMOA G0U94 MOA DO LOOPS OPEN ROLL 



INDIRECT ADDRESSING INSTRUCTION 



Indirect addressing is provided for POP 
instructions whose address fields normally 
require storage addresses by means of the 
following instruction. 

IND G: Indirect 

The address contained in the 
storage address INDIRECT BOX is 
transmitted to the POP indicated by 
G, where G is a POP instruction 
which requires a storage address in 
its G field, and a jump is made to 
that POP. The POP "G" operates in 
its normal fashion, using the tran- 
smitted address. 



Explanation : The second card shown defines 
the global label G0336. The first card, a 
comment card, indicates the longer name of 
the routine, STA GEN FINISH. The second 
card contains a reference to the label 
G0494; the longer form of this label is DO 
LOOPS OPEN ROLL, as indicated by the 
comment. 

Occasionally, several comment cards with 
identical address fields appear in sequence 
on the listing. This occurs when more than 
one long label has been applied to a single 
instruction or data value. The long labels 
are indicated in the comments fields of the 
cards. 
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Example ; 

* ACTEST AC TEST 

* ACTEST TESTAC 
ACTEST IEYSOP GO 50 H SOP FL AC OP MARK 



Explanation : The three cards shown define 
the global label ACTEST. One long form of 
this label is AC TEST, as indicated by the 
comment on the first card. The second card 
indicates that the name TESTAC has also 
been applied to this location, and that it 
also corresponds to ACTEST. 



LOCAL LABELS 



consists of two 1-byte address constants 
per POP instruction. This 16-bit value 
represents an 8-bit numeric operation code 
and an 8 -bit operand or relative address. 

The definition of the 8-bit operand or 
relative address varies according to the 
POP instruction used. Roll numbers appear 
in this field for instructions requiring 
them. For instructions which refer to 
storage locations relative to CBASE (see 
"Compiler Arrangement and General Register 
Usage") or to other base addresses, the 
word number relative to the appropriate 
base is used. The format for jump instruc- 
tions is discussed in the following 
paragraphs. 

When Quick Link is specified, machine 
language instructions are generated for the 
following POP instruction. (See "Assembler 
Language References to POP Subroutines.") 



All local labels consist of a pound sign 
followed by six decimal digits. If the 
preceding global label is of the form 
Gdddd, the first four digits are identical 
to those in the global name. The remaining 
two digits of the local label do not follow 
any particular sequence; they are, however, 
unique in the global area. 

The local label is defined by its 
appearance in the name field of a card 
containing a POP or assembler language 
instruction. 



Example : 
G0268 



G0268 PROCESS SCALAR ROLL 
IEYSRD G0432 SRD SCALAR ROLL 



#026811 IEYJOW #026821 

#026802 IEYITA G0359 ITA CED TAG MARK 

Explanation : The global label G0268 is 
defined by the second card in the sequence 
shown. The next two cards define, respec- 
tively, the local labels #026811 and 
#026802. In addition, the third card in 
the sequence contains a reference to the 
local label #026821, which is presumably 
defined elsewhere within the global area 
shown here. 



ASSEMBLY AND OPERATION 



The compiler is assembled with each POP 
instruction defined as a macro. Unless 
"Quick Link" output has been designated to 
the macro by means of the assembler 
instruction SETC ■ QLK', the resulting code 



POP INTERPRETER 



The assembled POP code is interpreted by 
a short machine language routine, POP 
SETUP, which appears with the POP subrou- 
tines at the beginning of the compiler. 

POP SETUP inspects each pair of address 
constants in sequence, and, using the 8 -bit 
operation code as an index into the POP 
jump table , a table which correlates opera- 
tion codes for the POPs with the addresses 
of the POP subroutines, transfers control 
to the appropriate POP subroutine. 

Thus, on encountering the hexadecimal 
value 081A, POP SETUP indexes into the POP 
jump table (labeled POPTABLE) at the eighth 
byte, counting from zero. The value found 
at this location is 0158 (hexadecimal) ; 
this is the address, relative to the base 
of the POP jump table, of the POP subrou- 
tine for the POP numbered 08 (IEYSUB) . 
When this value is added to the beginning 
address of the POP jump table, the absolute 
address of IEYSUB is produced, and POP 
SETUP performs a branch to that location. 

IEYSUB then operates, using the relative 
address 1A (which it finds in general 
register 7, ADDR) , and returns via POPXIT, 
register 6; in this case the return is to 
POP SETUP, which then continues with the 
next POP in sequence. The register POPADR 
is used to keep track of the location of 
the POP being executed. 

This sequential operation can be inter- 
rupted by means of POP jump (branch) 
instructions, which cause an instruction 
other than the next in sequence to be 
operated next. The XIT POP ins*-*-"'-tiop 
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also alters the sequence by causing the 
interpreter to release control, performing 
a branch to the assembler language instruc- 
tion following the XIT. This device is 
employed to introduce assembler language 
coding into the compiler routines when this 
is more efficient than the use of POPs. 
Assembler language sequences sometimes ter- 
minate with a branch to POP SETUP, so that 
it may resume the execution of POP 
instructions . 



ASSEMBLER LANGUAGE REFERENCES TO POP 
SUBROUTINES 



Thus, the instruction IEYJUN G0192J is 
assembled as 5002, for example, where the 
global jump table begins: 

r t 

G0075J | 5A0 | 

f -I 

G0111J | 752 | 

* -I 

G0192J | B02 j 

f 1 

I - I 



In some of the routines of the compiler, 
the operation of POP SETUP is bypassed by 
assembler language instructions which make 
direct reference to the POP subroutines. 
In these sequences, a pair of machine 
language instructions performs the function 
of a single POP instruction. For example, 
the instructions 

LA ADDR,ONE-CBASE(0,0) 
BAL POPXIT, FETQ 



function of 



the 



POP 



accomplish the 
instruction 

IEYFET ONE 



but bypass the operation of POP SETUP. The 
IEYFET routine, (referred to by its label 
FETQ) returns, via POPXIT, to the next 
instruction. Note that the first instruc- 
tion of the pair sets ADDR to the correct 
value for the operand of the IEYFET opera- 
tion; this would be done by POP SETUP if it 
interpreted IEYFET ONE. 



On encountering this instruction, POP SETUP 
loads its address field (02) , multiplied by 
four (08), into the register ADDR. It then 
jumps to the POP subroutine for IEYJUN. 

The IEYJUN subroutine uses ADDR as an 
index into JUMP TABLE, finding the value 
B02. This value is placed in the register 
TMP and a branch is made to the location 
defined by the sum of the contents of TMP 
and the contents of CONSTR, which holds the 
location CBASE. Thus, if the location 
CBASE is 10B0, the location branched to is 
1BB2, the location of the routine labeled 
G0192, and the instruction at that location 
is operated next. 

Since the POP subroutines for global 
jumps branch directly to the target loca- 
tion, the instruction at that location must 
be a machine language instruction rather 
than a POP. Moreover, all jump target 
routines which contain local jumps must 
reset POPADR to reflect the new location. 
Thus, routines which are jump targets and 
which are written in POPs begin with the 
instruction 



| GLOBAL JUMP INSTRUCTIONS 



The labels referred to in POP global 
jump instructions , jump instructions which 
branch to global labels, always end with 
the character J. These global labels refer 
to the global jump table , a table whose 
fullword entries contain the relative 
addresses of global labels which are the 
targets of branches. Each phase of the 
compiler has a global jump table. The 
table is labeled JUMP TABLE. 

References in POP global jump instruc- 
tions to the global jump table are 
assembled as relative word addresses in 
that table. Each entry in the table con- 
tains the address, relative in bytes to 
CBASE, of the label whose spelling is 
identical to that of the global jump table 
entry except that it does not include the 
terminal J. 



BALR POPADR, POPPGB 

which sets POPADR to the location of the 
first POP instruction in the routine and 
branches to POP BASE, the address of which 
is held in POPPGB. At POP BASE, the 
contents of POPADR are saved in LOCAL JUMP 
BASE, POPXIT is set to the beginning loca- 
tion of POP SETUP, and POP SETUP begins 
operating. For the sake of brevity, this 
instruction is coded as 

BALR A, B 

in some routines. 

Routines in which the POP instructions 
have been replaced by pairs of assembler 
language instructions and which contain 
local jumps begin with the instruction 

BALR A, 

or 

BALR POPADR, 
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instead of the instruction given above, 
since the branch to POP SETUP is not 
desired. 

Because global jump targets begin with 
this machine language code, it is not 
possible for POP instructions to continue 
in sequence into new global routines. When 
this operation is intended, an IEYXIT or an 
IEYJUN instruction terminates the first 
routine. 



Explanation : The local jump instruction 
illustrated at location 140 is assembled so 
that its address field contains the loca- 
tion of the label #024503 (120), relative 
in halfwords to the beginning location of 
the global area plus two (102). Thus, the 
address field of the IEYJUN instruction 
contains the value 09. 



| LOCAL JUMP INSTRUCTIONS 



POP local jump instructions , jump 
instructions which transfer control out of 
the normal sequence to local labels., must 
occur in the same global area as the one in 
which the local label referred to is 
defined. 

The address portions of POP local jump 
instructions are assembled to contain the 
distance in halfwords from the beginning of 
the global area plus two to the indicated 
local label. This value is a relative 
halfword address for the target, where the 
base used is the location of the first POP 
instruction in the global area. 



When the POP local jump instruction is 
interpreted, the contents of the location 
LOCAL JUMP BASE are added to the address 
field of the POP instruction to produce the 
absolute address of the jump target. LOCAL 
JUMP BASE is set to the beginning address 
of the global area plus two as a result of 
the BALR instruction which begins the glob- 
al routine; this function is performed at 
POP BASE, as described in "Global Jump 
Instructions. " 



Example; 

Decimal 
Location Label 



100 
102 



G0245 



Symbolic 
Instruction 
BALR A, B 
IEYCLA G0566 



When local jumps are performed directly 

Hexadecimal in machine language, the relative address- 

Instruction ing described above is also used; in this 

case, however, the base address is in the 

062A register POPADR as a result of the BALR 

instruction heading the routine. 



120 



#024503 IEYLGA G0338 



9A12 



140 



IEYJUN #024503 



5809 



POP instruction mnemonics are listed 
Table 8. 



in 
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Table 8. POP Instruction Cross-Reference List 



| Mnemonic 
| ADD 


Hex 
04 


j AFS 


BC 


| AND 


B4 


| APK 


A4 


| ARK 


86 


j ARP 


0E 


| ASK 


12 


j ASP 


14 


| BID 


7E 


| BIM 


7C 


| BIN 


7A 


1 BOP 


60 


| CAR 


1A 


| CLA 


06 


| CNT 


1C 


j CPO 


B2 


| CRP 


62 


| CSA 


24 


| CSF 


26 


| DIM 


8E 


j DIV 


B8 


1 EAD 


2E 


j EAW 


18 


| ECW 


18 


| EOP 


30 


| ETA 


32 


| FET 


34 


| FLP 


46 


j FRK 


84 


| FRP 


10 


| FTH 


AE 


j IAD 


36 


| IND 


D2 


j IOP 


38 


| IOR 


8A 


| ITA 


3A 


| ITM 


A0 


j JAF 


4A 




56 


| JAT 


48 




54 


| JOW 


4E 




5A 


| JPE 


52 


| JRD 


82 


| JSB 


50 


| JUN 


4C 




58 


| LCE 


00 


j LCF 


AA 


| LCT 


A8 



Instruction Group 

Arithmetic/Logical 

Arithmetic/Logical 

Arithmetic/Logical 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Code Producing 

Code Producing 

Code Producing 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Decision Making 

Jump 

Arithmetic/Logical 

Arithmetic/Logical 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Indirect Addressing 

Transmissive 

Arithmetic/Logical 

Transmissive 

Transmissive 

Jump (global) 

Jump (local) 

Jump ( global ) 

Jump (local) 

Jump (global) 

Jump (local) 

Jump 

Jump 

Jump 

Jump (global) 

Jump (local) 

Transmissive 

Transmissive 

Transmissive 



| Mnemonic 


Hex 


j LGA 


9A 


j LGP 


80 


| LLS 


98 


| LRS 


B6 


1 LSS 


B0 


| MOA 


5C 


| MOC 


9E 


j MON 


5E 


j MPY 


0A 


| NOG 


IE 


j NOZ 


3E 


j PGO 


22 


| PGP 


9C 


| PLD 


90 


j PNG 


20 


j POC 


94 


j POW 


16 


1 PSP 


92 


| PST 


8C 


I QSA 


2A 


I QSF 


2C 


| REL 


64 


j RSV 


66 


| SAD 


6A 


j SBP 


BA 


j SBS 


96 


j SCE 


28 


| SCK 


6E 


| SFP 


A6 


| SLE 


70 


j SNE 


74 


| SNZ 


72 


j SOP 


6C 


| SPM 


A2 


| SPT 


AC 


j SRA 


76 


1 SRD 


78 


| STA 


68 


j STM 


3C 


j SUB 


08 


| SWT 


OC 


j TLY 


42 


| WOP 


C8 


| W1P 


CA 


1 W2P 


CC 


j W3P 


CE 


| W4P 


DO 


| XIT 


44 


| ZER 


40 



I nstruction Group 

Decision Making 

Transmissive 

Arithmetic/Logical 

Arithmetic/Logical 

Transmissive 

Decision Making 

Transmissive 

Transmissive 

Arithmetic/Logical 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Transmissive 

Roll Control 

Arithmetic/Logical 

Transmissive 

Decision Making 

Jump 

Roll Control 

Roll Control 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Decision Making 

Arithmetic/Logical 

Transmissive 

Arithmetic/Logical 

Address Computation 

Address Computation 

Address Computation 

Address Computation 

Address Computation 

Jump 

Transmissive 
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APPENDIX B: ROLLS USED IN THE COMPILER 



This appendix describes each of the 
rolls used in the compiler, giving the 
group size, the structure and content of 
the information in the group, and the roll 
number. Each roll is described as it 
appears in each of the phases of the 
compiler. This information is useful in 
observing the actions taken by the various 
phases, since a significant portion of the 
work performed by the compiler is the 
construction and manipulation of informa- 
tion on rolls. 

The rolls are ordered in this appendix 
as they are in storage, by roll number. In 
some cases, a single, number is assigned to 
several rolls. In these cases, the rolls 
with identical numbers are presented 
chronologically, and the overlay of one 
roll on another indicates that the previous 
roll is no longer required when the new 
roll is used. The group stats values for 
rolls with the same number are always 
identical. 

The roll number is the entry number in 
the roll statistics tables for the appro- 
priate set of statistics; that is, the roll 
number multiplied by four is the relative 
address of the correct entry in the group 
stats, BASE, BOTTOM, and TOP tables. 



10) indicates either in-line (including 
which generation routine must be used) or 
that a call is to be generated (when the 
flag is equal to zero). 

This roll is used and then destroyed by 
Allocate. 



ROLL 1: SOURCE ROLL 



This roll holds source module statements 
while they are being processed during the 
operations of Parse. The roll is not used 
by any later phase of the compiler. 

Source statements appear on this roll 
one card column per byte. Thus, each card 
of a source statement occupies 20 groups on 
the roll. The group size is four bytes. 
The statement 

A(I,J)=B(I, J)*2+C(I, J)**2 

would therefore appear on the SOURCE roll 
as: 



ROLL 0: LIB ROLL 



This roll contains one group for every 
name by which a library subprogram can be 
referred to in the source module. The roll 
is contained in IEYROL and remains 
unchanged in size and in content throughout 
compilation. 



The group 
twelve bytes. 



r — 
l<- 



size for the LIB roll 
Each group has the form: 

4 bytes 

— subprogram 



is 



I 

I TAG 



-name — 
— T - 



flag 



— T" 
->l 
»+- 
I 



TAG 



no. arguments 



The TAG appearing in the seventh byte of 
the group provides the mode and size of the 
FUNCTION value, if the subprogram is a 
FUNCTION. The TAG in byte 9 indicates the 
mode and size of the arguments to the 
subprogram. For FUNCTIONS, the flag (byte 






4 bytes 

T 

b I b 



) 



+ 



where b stands for the character blank, and 
a total of 20 words is occupied by the 
statement. 



1U0 



ROLL 2: IND VAR ROLL 



This roll holds a pointer to the induc- 
tion variable (the DO variable) used in 
each DO loop. The pointer specifies the 
appropriate group on the SCALAR roll. Each 
pointer is placed on the roll by Parse as 
the DO loop is encountered in the source 
module. When the loop is closed, the 
pointer is deleted. 

The roll is not used in subsequent 
phases of the compiler. The group size for 
the IND VAR roll is four bytes. 



ROLL 2: NONSTD SCRIPT ROLL 



This roll exists only in Unify; the 
information held on it is taken from the 
SCRIPT roll. The group size for the NONSTD 
SCRIPT roll is variable, with a minimum of 
20 bytes. Each group on the roll describes 
an array reference. 



The format 
group is: 



Of the NONSTD SCRIPT roll 



constant subscripts. The remaining words 
hold the induction variable coefficient 
used in this reference for each loop in the 
nest, beginning with nest level one (the 
outermost loop) and ending with the highest 
nest level at this array reference. 



R OLL 3; NEST SCRIPT ROLL 

I 

This roll contains 'information concern- 
ing array references in nested DO loops. 
The information for this roll is taken from 
the SCRIPT roll as each nest of loops is 
encountered, one nest at a time. The roll 
exists only in Unify. The group size of 
the NEST SCRIPT roll is variable with a 
minimum of 20 bytes. The format of the 
NEST SCRIPT roll is as follows: 



j traits | 



4 bytes 

frequency 



| pointer to ARRAY REF roll 
, 

| pointer to the ARRAY roll 



4 bytes 

I T 1 

| traits | frequency | 

! j. ., 

| pointer to ARRAY REF roll j j 

|. ., , 

j pointer to the ARRAY roll | j-- 

|. ^ 

j offset | 

y ^ 

| induction variable coefficient | 

I -I 

I • I 

I • I 

I • I 

|. ., 

| induction variable coefficient | 

L J 

where the first byte of the first word 
contains the trait , which indicates either 
joined or not joined; the value of this 
item is always zero (not joined) for this 
roll. The joined value indicates that the 
subscript described must appear in a gener- 
al register at the time of the reference. 
The remaining three bytes of the first word 
indicate the number of times this subscript 
expression is used. 

The next two words contain pointers to 
rolls holding information on the array and 
the array reference to which this group 
refers. The fourth word holds the array 
offset; this value accounts for element 
size and includes all modification due to 



| offset 

^ 

| induction variable coefficient 
,. 



| induction variable coefficient 



where the first byte of the first word 
indicates joined or not joined. The 
remaining three bytes of the first word 
indicate the number of times that this 
subscript expression is used. The next two 
words of the group contain pointers to 
rolls which hold information on the array 
and the array reference to which this entry 
refers. The fourth word holds the actual 
adjusted offset for this array reference. 
The last words of the group contain the 
coefficients of induction variables used in 
the array reference, beginning with the 
nest level one variable and ending with the 
highest nest level. 



ROLL 4: POLISH ROLL 



This roll is used to hold the Polish 
notation generated by Parse, one statement 
at a time. (The Polish notation is moved 
to the AFTER POLISH roll at the end of each 
statement. ) Therefore, the roll contains 
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pointers, drivers, and an occasional con- 
stant. The terms PO and PI are used to 
refer to the bottom and next-to-bottom 
groups on the POLISH roll, respectively. 

In Gen, the Polish notation is moved 
back onto the POLISH roll from the AFTER 
POLISH roll, one statement at a time. It 
is used in the production of object code. 

The group size for the POLISH roll is 
four bytes. The format of the Polish 
notation which appears on this roll is 
described completely in Appendix C. 

The POLISH roll is not used in the other 
phases of the compiler and no information 
is left on it through these phases. 



ROLL 4: LOOP SCRIPT ROLL 



This roll contains information on array 
references encountered in the source 
module. The group size for the LOOP SCRIPT 
roll is variable; the minimum is 20 bytes. 
Its format is: 



4 bytes 



r t - 

| traits | 

l x. 



frequency 



pointer to the ARRAY REF roll 



| pointer to the ARRAY roll 



offset 



F 

| induction variable coefficient 
h 

I 



h 



induction variable coefficient 



4 bytes 

r 1 

I n | 
|. .( 

I k I 

h t t t ^ 

I c ± I c 2 I c 3 I c I 

J. J J X -( 

I • I 

I . I 

I . I 

J. T T T -I 

I c I I I I 

L I I J. J 

where n is the number of words in the plex, 
exclusive of the word which holds n, k is 
the number of bytes in the literal con- 
stant, and c (the k character) may fall in 
any byte of the last word of the plex. If 
the literal constant appeared in a source 
module DATA or PAUSE statement, the high 
order bit of the second word of the plex 
(k) is set to one; otherwise, it is zero. 

Entries are made on the LITERAL CONST 
roll only during Parse. It is used to hold 
the literal constants throughout the com- 
piler; its format, therefore, does not 
vary. 



ROLL 



GLOBAL SPROG ROLL 



In Parse this roll holds the names of 
all SUBROUTINES and non-library FUNCTIONS 
referred to in the source module. It also 
holds the names of all subprograms listed 
in EXTERNAL statements in the source 
module, including library subprograms. In 
addition, the compiler itself generates 
calls to the library exponentiation rou- 
tines; the names of these routines are 
entered on the GLOBAL SPROG roll. 



All items are the same as described for the 
NEST SCRIPT roll (roll 3). 

The LOOP SCRIPT roll exists only in 
Unify. It is used by this phase to further 
separate subscripts into two categories : 
standard, those which must appear in gener- 
al registers at the time of reference, and 
nonstandard. 



The group size for the GLOBAL SPROG roll 
is eight bytes. All groups placed on the 
GLOBAL SPROG roll by Parse have the follow- 
ing format: 



4 bytes 

■subprogram 

TAG 



r — 
l<- 



-name- 



— T" 

>l 



ROLL 5: LITERAL CONST ROLL 



This roll holds literal constants, which 
are stored as plexes. The group size for 
the LITERAL CONST roll is variable. Each 
plex has the form: 



The TAG appearing in the seventh byte of 
the group indicates the mode and size of 
the FUNCTION value for FUNCTIONS; it has no 
meaning for SUBROUTINES. 

In Allocate, the information on the roll 
is altered to: 
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H bytes 

I T 1 

| ESD number | displacement | 
y x 1 

| base table pointer | 

L J 



The ESD number is the one assigned to the 
subprogram. The displacement and the base 
table pointer, taken together, indicate the 
location assigned by Allocate to hold the 
address of the subprogram. The specified 
BASE TABLE roll group holds an address; the 
displacement is the distance in bytes from 
that address to the location at which the 
address of the subprogram will be stored in 
the object module. 



In Gen, the GLOBAL SPROG roll is used in 
the construction of object code, but it is 
not altered. 



In Exit, the roll is used in the produc- 
tion of RLD cards, but is not altered. 



ROLL 8: FX CONST ROLL 



This roll holds the fullword integer 
constants which are used in the source 
module or generated by the compiler. The 
constants are held on the roll in binary, 
one constant per group. The group size for 
the FX CONST roll is four bytes. 

The format of the FX CONST roll is 
identical for all phases of the compiler. 
The roll remains in the roll area for all 
phases, even though it is not actually used 
in Allocate and Unify. 



ROLL 



FL CONST ROLL 



This roll holds the single-precision 
real (floating point) constants used in the 
source module or generated by the compiler. 
Constants are recorded on the roll in 
binary (floating point format), each con- 
stant occupying one group. The group size 
for the FL CONST roll is four bytes. 

The FL CONST roll remains in the roll 
area for all phases of the compiler, 
although it is not actually used in Alloc- 
ate or Unify. The format of this roll is 
identical for all phases. 



ROLL 10: DP CONST ROLL 



This roll holds the double-precision 
(8-byte) real constants used in the source 
module or defined by the compiler. 

The constants are recorded in binary 
(doxible-precision floating point format) , 
one constant per group. The group size for 
the DP CONST roll is eight bytes. 

The DP CONST roll is present in this 
format through all phases of the compiler. 



ROLL 11: COMPLEX CONST ROLL 



This roll holds the complex constants of 
standard size (eight bytes) used in the 
source module or generated by the compiler. 
Each complex constant is stored on the roll 
as a pair of 4-byte binary floating-point 
numbers, the first represents the real part 
of the constant and the second represents 
the imaginary part. 

The COMPLEX CONST roll exists in the 
format described above for all phases of 
the compiler. The group size is eight 
bytes. 



ROLL 12: DP COMPLEX CONST ROLL 



This roll holds the complex constants of 
optional size (16 bytes) which are used in 
the source module or generated by the 
compiler. Each constant is stored as a 
pair of double-precision binary floating 
point values. The first value represents 
the real part of the constant; the second 
value represents the imaginary part. The 
group size for the DP COMPLEX CONST roll is 
16 bytes. 

The DP COMPLEX CONST roll exists in this 
format for all phases of the compiler. 



ROLL 13: TEMP NAME ROLL 



This roll is used as temporary storage 
for names which are to be placed on the 
ARRAY or EQUIVALENCE roll. The group size 
for the TEMP NAME roll is eight bytes. The 
format of the group is: 
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4 bytes 

r — 1 

| < name 1 

| T T 1 

j >j TAG j j 

L X X J 

The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the variable. 

The TEMP NAME roll is used only during 
Parse and Allocate; it does not appear in 
any later phase of the compiler. 



ROLL 13: STD SCRIPT ROLL 



The information on this roll pertains to 
array references for which the subscript 
expression must appear in a general regist- 
er (joined). 

The roll exists only in Unify and the 
information contained therein is taken from 
the SCRIPT roll. Its structure and con- 
tents are identical to those of the NONSTD 
SCRIPT roll (roll 2) with the exception 
that the traits on this roll always indic- 
ate joined. The group size is variable 
with a minimum of 20 bytes. 



This roll is not used after Allocate. 
The group size for the DO LOOPS OPEN roll 
is four bytes. 



ROLL 15: LOOPS OPEN ROLL 



This roll contains the increment and 
terminal values of the induction variable 
used in a DO loop and transfer data for the 
reiteration of the loop. 

Gen creates the roll by establishing an 
entry each time a DO loop is encountered. 
The information is used in generating the 
object code. As a loop is closed, the 
bottom group from the LOOPS OPEN roll is 
pruned. 

The group size is four bytes. Four 
groups are placed in the roll at one time. 
The configuration of a LOOPS OPEN roll 
group is as follows: 

4 bytes 

r 1 

| pointer to n 3 (increment) | 

y ., 

| pointer to n a (terminal value) | 

h ., 

| LOOP DATA pointer | 

| j 

| pointer to return point made label | 

L J 



ROLL 14: TEMP ROLL 



This roll is used as temporary storage 
in Parse and is not used in any later phase 
of the compiler. The group size for the 
TEMP roll is four bytes. 

This roll is used as temporary storage 
for error information in Parse and is not 
used in the other phases of the compiler. 
The group size for the ERROR TEMP roll is 
four bytes. 



ROLL 15: DO LOOPS OPEN ROLL 



ROLL 16: ERROR MESSAGE ROLL 



This roll is used only in Parse. It is 
used during the printing of the error 
messages for a single card of the source 
module. Each group holds the beginning 
address of an error message required for 
the card. It is used in conjunction with 
the ERROR CHAR roll, whose corresponding 
group holds the column number in the card 
with which the error is associated. The 
group size for the ERROR MESSAGE roll is 
four bytes. 



In Parse, as DO statements are encoun- 
tered, pointers to the target labels of the 
DO statements are placed on this roll. 
When the target statement itself is encoun- 
tered, the pointer is removed. 

In Allocate, the roll may contain some 
pointers left from Parse; if any are pres- 
ent, they indicate unclosed DO loops; the 
roll is checked by Allocate and any infor- 
mation on it is removed. 



ROLL 16: TEMP AND CONST ROLL 



This roll is produced in Gen and is used 
in Gen and Exit. It holds all constants 
required for the object module and zeros 
for all temporary storage locations 
required in the object module. 

Binary constants are moved to this roll 
by Gen from the various CONST rolls. This 
roll becomes the object module's temporary 
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storage and constant area. The group size 
for the TEMP AND CONST roll is four bytes. 



"ROLL 17: ERROR CHAR ROLL 



This roll is used only during Parse, and 
is not used in any subsequent phase of the 
compiler. 



ROLL 18: DATA SAVE ROLL 



This roll is used only in Gen, where it 
holds the Polish notation for portions of 
DATA statements or Explicit specification 
statements which refer to control sections 
different from the control section present- 
ly in process. The roll is a temporary 
storage location for this information, 
since data values are written out for one 
control section at a time. The group size 
is four bytes. 



While a single source module card and 
its error messages are being prepared for 
output, this roll holds the column number 
with which an error message is to be 
associated. The address of the error mes- 
sage is held in the corresponding group on 
the ERROR MESSAGE roll. The group size for 
the ERROR CHAR roll is four bytes. 



ROLL 17: ADCON ROLL 



This roll is used only in Exit, and is 
not used in previous phases of the compil- 
er. It holds address constants, the loca- 
tions at which they are to be stored, and 
relocation information. The group size is 
16 bytes. The first word of the group 
holds an area code, indicating the control 
section in which the constant exists. The 
second word of the group holds the address 
into which the constant is to be placed; 
the third holds the constant. The last 
word of the group indicates the relocation 
factor (ESD number) to be used for the 
constant. 



ROLL 19: XTEND LABEL (XTEND LBL) "ROLL 



This roll is used only by Parse. It 
holds the pointers to the LABEL_roll for 
all labels defined within the innermost DO 
loops that are possible extended range 
candidates. The group size of the XTEND 
LABE L roll is four bytes. Each group holds 
a pointer to the LABEL roll. The format of 
the group on the roll is : 



1 byte 



3 bytes 



I TAG 



| LABEL roll pointer 

.± 



ROLL 18: INIT ROLL 



If the label is a possible re-entry point 
from the extended range of a DO loop, the 
TAG byte contains a X' 05'. Otherwise, the 
TAG byte contains a X'OO'. 



ROLL 1 9: EQUIVALENCE TEMP (EQUIV TEMP) 
ROLL 



This roll is used to hold EQUIVALENCE 
roll data temporarily in Allocate, and is 
not used in any other phase of the 
compiler. The group size for the 
EQUIVALENCE TEMP or EQUIV TEMP roll is 
twelve bytes. The format of the group on 
the roll is: 



The group size for the INIT roll is 
eight bytes. The roll is initialized in 
Parse, and used and destroyed in Allocate. 
Each group on the roll holds the name of a 
scalar variable or array listed in the INIT 
option of a DEBUG statement in the source 
module. The format of the group is : 






4 bytes 
variable name- 



— T" 

>] 
—X. 



r — 



4 bytes 
-variable- 



-name- 



— >| 
j. 

offset 



The offset is the relative address of the 
beginning of the variable within the 
EQUIVALENCE group (set) of which it is a 
member. This roll holds this information 
during the allocation of storage for 
EQUIVALENCE variables. 
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ROLL 20: XTEND TARGET L ABEL (XTEND TARG 
LBL) ROLL 



This roll is used only by Parse. The 
group size of the XTEND TARGET LABEL roll 
is four bytes. Each group holds a pointer 
to the LABEL roll for each label that 
appears in any transfer statement (e.g., GO 
TO, Arithmetic IF statements) within a DO 
loop. These groups indicate transfers out 
of an innermost DO loop and a possible 
extended range. The format of the group is 
the same, as Roll 19, XTEND LABEL roll. 

1 byte 3 bytes 

| TAG | LABEL roll pointer | 

Li J. J 

If the TAG byte contains a X' 40* , this 
indicates that the target label also 
appears in a transfer statement outside the 
DO loop and may be a possible re-entry 
point (if the label is defined within the 
loop) . Otherwise, the TAG byte contains a 
x* oo ■• . 



4 bytes 

r T . ., 

| traits | frequency | 

j. x ) 

j ARRAY REF pointer | 

i ^ 

| LOOP CONTROL pointer j 

l - . . J 

The frequency indicates how many times 
within a loop the register is used. The 
registers are symbolic registers that are 
converted to real registers and/or tem- 
porary storage locations. The pointer to 
the ARRAY REF roll is actually a thread 
which indicates each place that this 
register is required in the loop. The last 
word, the pointer to the LOOP CONTROL roll, 
designates where the register in question 
was initialized. (The particular informa- 
tion is contained in the second word of the 
entry on the LOOP CONTROL roll. ) 



ROLL 21: BASE TABLE ROLL 



E°LL_20j EQUIVALENCE HOL D (E Q UIV HOLD) 

ROLL 



This roll is used to hold EQUIVALENCE 
roll data temporarily in Allocate, and is 
not used in any other phase of the compil- 
er. The group size for the EQUIVALENCE 
HOLD roll is twelve bytes. The format of 
the group on the roll is: 



4 bytes 
-variable- 



r 

|<— - 

t 

j 

j. 



-name- 



T - 

~>l 

A- 



offset 



The offset is the relative address of the 
beginning of the variable within the 
EQUIVALENCE group (set) of which it is a 
member. This roll holds this information 
during the allocation of storage for 
EQUIVALENCE variables. 



This roll is constructed by Allocate,, 
and remains in the roll area for all 
remaining phases of the compiler. The BASE 
TABLE roll becomes the object module base 
table,, which holds the base addresses used 
in referring to data in the object module. 

The group size for this roll is eight 
bytes. One group at a time is added to 
this roll by Allocate. The first word 
holds the area code which indicates the 
relocation factor by which the base table 
entry must be modified at object time; each 
unique area code also defines an object 
module control section. The second word 
holds a relative address within the control 
section defined by the area code; this is 
the value which is in the corresponding 
base table entry prior to modification by 
the linkage editor. 

The entire BASE TABLE roll is con- 
structed by Allocate. 



ROLL 22: ARRAY ROLL 



ROLL 20: REG ROLL 



This roll contains information concern- 
ing general registers required in the 
execution of DO loops in the object module. 

The group size of the REG roll is twelve 
bytes. The roll is used only in Unify. 
Each group has the following format: 



This roll is used throughout the compil- 
er to hold the required information de- 
scribing arrays defined in the source 
module. 

In Parse, the name and dimension infor- 
mation is added to the roll for each array 
definition encountered. The group size for 
the ARRAY roll is 20 bytes. The format of 
the group is: 
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4 bytes 



-array name — 
TAG 



— T" 

■>l 
—X. 



ARRAY DIMENSION pointer 
number of elements 
array offset 



H 



The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the array variable. The pointer in the 
third word of the group points to the 
beginning of the plex on the ARRAY 
DIMENSION roll, which describes the dimen- 
sions of the array. The number of elements 
in the array is a constant, unless the 
array has dummy dimensions; in the latter 
case. Parse puts a dummy pointer to a 
temporary location in this word of the 
group. 

The array offset is the summation of the 
multipliers for the array subscripts. If 



the array dimensions are nl, n2, ...n7, then 
the multipliers are 1, nl, nl*n2,, nl*n2*n3, 
. . . nl*n2*n3*n4*n5*n6, where the size of the 
element of the array is not considered. 
This value, after it is multiplied by the 
element size,, is used as a subtractive 
offset for array references. The offset is 
placed on the roll as a constant unless the 
array has dummy dimensions; in the latter 
case, a dummy pointer to a temporary loca- 
tion is placed in the last word of the 
group. 



In Allocate, the first two words of the 
ARRAY roll group are replaced with the 
following: 



4 bytes 

r — ■ t t 1 

j TAG |DBG/CEAD | displacement | 
H _„ x J. .] 

J base table pointer | 

L . J 



The TAG is unchanged, except in location, 
from Parse. The DBG/CEAD flag is logically 
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split into two hexadecimal values. The 
first of these indicates debug references 
to the variable; its value is 1 for INIT, 2 
for SUBCHK, for neither, and 3 for both. 
The second hexadecimal value is nonzero if 
the array is in COMMON, a member of an 
EQUIVALENCE set, used as an argument to a 
subprogram, or a dummy; it is zero other- 
wise. The displacement and the base table 
pointer, taken together, indicate the 
beginning address of the array. The base 
table pointer specifies the BASE TABLE roll 
group to be used in references to the 
array; the displacement is the distance in 
bytes from the address held in that group 
to the location at which the array begins. 
If the array is a dummy, the base table 
pointer is replaced by a pointer to the 
GLOBAL DMY roll group defining the array, 
and the displacement is zero. 

The third, fourth, and fifth words of 
the ARRAY roll group are not modified by 
Allocate. 

The ARRAY roll remains in storage 
throughout the compiler, and it is con- 
sulted, but not modified, by the phases 
following Allocate. 



ROLL 23: DMY DIMENSION ROLL 

This roll is used first in Allocate, 
where it holds pointers to the array 
definition and the entry statement with 
which dummy array dimensions are asso- 
ciated. The group size of the DMY DIMEN- 
SION roll is four bytes. Two groups are 
added to the roll at a time to accommodate 
this information; the format is: 

4 bytes 

r t 

| ARRAY pointer | 

| .J 

| ENTRY NAMES pointer | 

L j 



roll is constructed by Gen and holds point- 
ers to the arguments to subprograms in the 
order in which they are presented in the 
subprogram reference. These pointers may, 
therefore, point to the SCALAR, ARRAY, 
GLOBAL SPROG, or TEMP AND CONST rolls (the 
last roll holds arguments which are 
expressions or constants) . The value zero 
is placed on this roll for arguments whose 
addresses are computed and stored in the 
object module argument list area. 

The TAG fields of the pointers on this 
roll contain the value zero except for the 
TAG field of the last pointer for a single 
subprogram reference; this field contains 
the value 80. 

The contents of the SPROG ARG roll are 
punched by Exit. The group size for the 
SPROG ARG roll is four bytes. 



ROLL 24: ENTRY NAMES ROLL 



In Parse, this roll holds all ENTRY 
names defined in the source subprogram, and 
pointers to the locations on the GLOBAL DMY 
roll at which the definitions of the dummy 
arguments corresponding to the ENTRY begin. 
The group size for the ENTRY NAMES roll is 
16 bytes. The format of the group is: 



4 bytes 



r — 

l<- 



-ENTRY name- 



H 
I 

H 
I 



->l 



dummy pointer 




The dummy arguments corresponding to the 
ENTRY are listed on the GLOBAL DMY roll in 
the order in which they are presented in 
the ENTRY statement. 



In Gen, the DMY DIMENSION roll is used 
in the generation of temporary locations 
for the dummy dimensions. This operation 
is performed when code is being produced 
for the prologue with which the dummy 
dimension is associated. 

The DMY DIMENSION roll is not used by 
later phases of the compiler. 



ROLL 23: SPROG ARG ROLL 



This roll becomes the subprogram argu- 
ment list area of the object module. The 



In Allocate, the ENTRY NAMES roll is 
used in the check to determine that scalars 
with the same names as all ENTRYs have been 
set. A pointer to the scalar is placed in 
the fourth word of the group by this phase. 

In Gen, during the production of the 
initialization code (the object module 
heading) , the first word of the group is 
replaced by a pointer to the ADCON roll 
indicating the location of the prologue, 
and the second word is replaced by a 
pointer to the ADCON roll indicating the 
location of the epilogue. During the pro- 
duction of code for the prologue, the first 
pointer (the first word of the group) is 
replaced by a pointer to the ADCON roll 
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which indicates the entry point for the 
ENTRY. 



The GLOBAL DMY roll is used but 
fied in Gen and Exit. 



unmodi- 



This roll is not required after the Gen 
phase. 



ROLL 26: ERROR ROLL 



ROLL 25: GLOBAL DMY ROLL 



In Parse, each group on the roll con- 
tains the name of a dummy listed in a dummy 
argument list for the principle entry or 
for an ENTRY statement in a source subpro- 
gram. A flag also appears in each group 
which indicates whether the dummy is a 
"call by name" or a "call by value" dummy. 
The group size is eight bytes. The format 
of the group in Parse is: 



4 bytes 



r — 

l<- 



- dummy name- 






flag 



where the dummy neime occupies the first six 
bytes of the group. 

Label dummies, indicated by asterisks in 
the source module, are not listed on this 
roll. With this exception, however, the 
dummy lists from the source subprogram are 
entered on this roll as they appear in the 
source statements. The end of each dummy 
list is signaled by a marker symbol on the 
roll. Since each of the dummy lists is 
represented on the roll, the name of a 
single dummy may appear more than once. 

In Allocate, the information in each 
group is replaced by: 

4 bytes 

I T T 1 

j TAG | DBG/flag | displacement | 
| x x .j 

| base table pointer | 

L J 

where the bcise table pointer indicates the 
group on the BASE TABLE roll to be used for 
references to the dummy, and the displace- 
ment (in the third and fourth bytes) indi- 
cates the distance in bytes from the 
address stored in that BASE TABLE roll 
group to the location of the dummy. The 
"flag" occupies the second hexadecimal 
character of the second byte and is 
unchanged from Parse, indicating call by 
name if it is on. The first hexadecimal 
value in that byte indicates debug 
references to the variable; its value is 1 
for INIT, 2 for SUBCHK, for neither, and 
3 for both. The TAG indicates the mode and 
size of the dummy. 



This roll is used only in Parse and 
holds the location within the statement of 
an error, and the address of the error 
message for all errors encountered within a 
single statement. As the statement is 
written on the source listing, the informa- 
tion in the ERROR roll groups is removed, 
leaving the roll empty for the processing 
of the next statement. 

The group size is four bytes. Two 
groups are added to this roll at a time: 
(1) the column number of the error, count- 
ing from one at the beginning of the source 
statement and increasing by one for every 
card column in the statement, and (2) the 
address of the message associated with the 
particular error encountered. 



ROLL 26: ERROR LBL ROLL 



This roll is used only in Allocate, 
where it holds labels which are referred to 
in the source module, but which are unde- 
fined. These labels are held on this roll 
prior to being written out as undefined 
labels or unclosed DO loops. The group 
size for the ERROR LBL roll is four bytes. 



ROLL 27: LOCAL DMY ROLL 



This roll holds the names of the dummy 
arguments to a statement function while the 
statement function is being processed by 
Parse. The group size is eight bytes. The 
format of the group is: 



r — 

l<- 



4 bytes 
-dummy name- 

T 

> , 



The information is removed from the roll 
when the processing of the statement func- 
tion is complete. 

This roll does not appear in any subse- 
quent phase of the compiler; however, 
pointers to it appear in the Polish nota- 
tion produced by Parse and these pointers 
are, therefore, processed by Gen. 
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ROLL 28: LOCAL SPROG ROLL 



In Parse, the roll holds the names of 
all statement functions as they are encoun- 
tered in the source module. The group size 
for the LOCAL SPROG roll is eight bytes. 
The format of the group is: 



r — 
l<- 
H- 



4 bytes 
-stmt, function- 
-name > | TAG 



— r - 

->l 
— i. 



The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the function value. 



a group. Pointers are added to the roll 
when the labels are found as arguments in 
CALL statements. The group size for the 
CALL LBL is eight bytes. 



ROLL 30: ERROR SYMBOL ROLL 



This roll is used only in Allocate, 
where it holds any symbol which is in 
error, in preparation for printing. The 
group size for the ERROR SYMBOL roll is 
eight bytes. The symbol (variable name, 
subprogram name) occupies the first six 
bytes of the group. The remaining two 
bytes are set to zero. 



In Allocate, the first four bytes of 
each group are replaced by a pointer to the 
BRANCH TABLE roll group which has been 
assigned to hold the address of the state- 
ment function. 

The LOCAL SPROG roll is used by Gen and 
Exit, but it is not modified in those 
phases. 



ROLL 29: EXPLICIT ROLL 



This roll is used in Parse and Allocate, 
where it holds the names of all variables 
defined by Explicit specification state- 
ments. The group size for the EXPLICIT 
roll is eight bytes. The format of the 
group in both phases is : 



4 bytes 



i— 



-variable name- 



— T 

-> J TAG 
— JL 



where the TAG (seventh byte) indicates the 
mode and size of the variable. 

Groups are entered on this roll by 
Parse; the roll is consulted by Allocate, 
but not altered. 



ROLL 31: NAMELIST NAMES ROLL 



In Parse, this roll holds the NAMELIST 
names defined in the NAMELIST statement by 
the source module. The group size for the 
NAMELIST NAMES roll is twelve bytes. These 
groups are placed on the roll in the 
following format: 



4 bytes 
-NAME LI ST- 



r — 
l<- 
\- 



— r 
>l 



-name > I 

pointer to NAMELIST items 



where the pointer indicates the first vari- 
able in the list associated with the NAME- 
LIST name. In Allocate, the content of the 
group on the NAMELIST NAMES roll is changed 
to reflect the placement of the correspond- 
ing NAMELIST table in the object module. 
The format of the first two words of the 
modified group is: 

4 bytes 

r t 1 

| | displacement | 
j. j .! 

j base table pointer | 

L J 



ROLL 30: CALL LBL ROLL 



This roll is used only in Parse, where 
it holds pointers to the LBL roll groups 
defining labels which are passed as argu- 
ments in source module CALL statements. 
The pointers are held on this roll only 
temporarily, and are packed two pointers to 



where the base table pointer indicates the 
group on the BASE TABLE roll to be used for 
references to the NAMELIST table, and the 
displacement (bytes 3 and 4) indicates the 
distance in bytes from the address in that 
BASE TABLE roll group to the location of 
the beginning of the NAMELIST table. 

This roll is used, but not modified, in 
Gen and Exit. 
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ROLL 32: NAMELIST ITEMS ROLL 



This roll holds the variable names 
listed in the namelists defined by the 
source module. The group size for the 
NAMELIST ITEMS roll is eight bytes. Infor- 
mation is placed on the roll by Parse in 
the following form: 



r — 
l<- 
I— 



4 bytes 
-variable — 



•naroe- 



__ T - 
>l 



pointer to the dummy dimension variable on 
the SCALAR roll, and all affected multip- 
liers are pointers to temporary locations 
(on the TEMP AND CONST roll) , The multip- 
liers for an array with dimensions nl, n2, 
n3,..., n7 are 1, nl, nl*n2,..., 
nl*n2*n3*n4*n5*n6. 

The ARRAY DIMENSION roll is present, but 
not modified in Unify, Gen, and Exit. 



ROLL 34: BRANCH TABLE ROLL 



A marker symbol separates namelists on 
roll. 



the 



The roll is used in this format by 
Allocate and is destroyed. It does not 
appear in later phases. 



This roll becomes the object module 
branch table. During Allocate, where the 
roll is first used, the size of the roll is 
determined, and some groups are actually 
placed on it. These groups contain the 
value zero, and each group refers to a 
source module label. 



ROLL 33: ARRAY DIMENSION ROLL 



This roll is used to hold dimension 
information for the arrays defined in the 
source module. The group size for the 
ARRAY DIMENSION roll is variable. The 
information is placed on the roll by Parse 
in the form of a pi ex, as follows: 



1~ 



4 bytes 
n 



dimension 
multiplier 



dimension 
multiplier 



dimension 
multiplier 



In Gen, the information for the BRANCH 
TABLE roll groups is supplied as each 
labeled statement is processed. The group 
size for the BRANCH TABLE roll is eight 
bytes. The format of the group is: 

4 bytes 

r ■ 1 

| area code | 

,. _ -I 

| relative address | 

L - J 

where the area code provides the reference 
for linkage editor modification of the 
corresponding branch table word, and the 
relative address is the relative location 
of the label in the control section (area) 
in which it appears. Branch table (and, 
hence, BRANCH TABLE roll) entries are pro- 
vided for all branch target labels, state- 
ment functions, and made labels (labels 
constructed by the compiler to refer to 
return points in DO loops and to the 
statements following Logical IF state- 
ments) . 

The roll is retained in the Gen format 
until it is written out by Exit. 



where n is the number of words in the plex, 
exclusive of itself. As many dimensions 
and corresponding multipliers appear as 
there are dimensions declared for the 
array. 

Unless the array is a dummy and has 
dummy dimensions, each dimension and multi- 
plier is a constant. When dummy dimensions 
do appear in the array definition, the 
corresponding dimension on this roll is a 



ROLL 35: TEMP DATA NAME ROLL 



This roll is used only in Parse, where 
it holds pointers and size information for 
variables listed in DATA statements or in 
Explicit specification statements which 
specify initial values. Information is 
held on this roll while the statement is 
being processed. 
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The group size for the TEMP DATA NAME 
roll is four bytes. Four groups are added 
to the TEMP DATA NAME roll for each vari- 
able listed in the statement being scanned. 
They are in the following sequence: 

U bytes 

r 1 

| element size (bytes) | 

i. ^ 

| pointer to variable | 

h A 

| number elements set | 

h H 

| element number | 

L J 



tains a pointer to the value which is held 
in the corresponding general register at 
the present point in the object module; as 
the contents of the general registers are 
changed, the pointers are changed. The 
pointers are used primarily to indicate 
that the general register is in use and the 
mode of the value in it. They are used for 
optimizing only in the case of the general 
registers which are loaded from the base 
table and the general registers used for 
indexing. If the general register corre- 
sponding to a specific group is not in use, 
the group holds the value zero. 



The third group specifies the number of 
elements of the variable being set by the 
DATA statement or the Explicit specifica- 
tion statement. If a full array is set, 
this is the number of elements in the 
array; if a specific array element is set, 
this word contains the value one. 

The fourth group indicates the first 
element number being set. If a full array 
is being set, this word holds the value 
zero; otherwise, it holds the element 
number. 



ROLL 36: TEMP POLISH ROLL 



This roll is used only in Parse, where 
it holds the Polish notation for a single 
DATA group during the scanning of that 
group. In an Explicit specification state- 
ment, a DATA group is defined to be a 
single variable and the associated con- 
stants; in a DATA statement, a DATA group 
is the set of variables listed between a 
pair of slash characters and the constants 
associated with that set. 

This roll is used because any error 
encountered in a DATA group will cause the 
Polish notation for the entire group to be 
canceled. In an Explicit specification 
statement, the type information on the 
variable is retained when the data is bad; 
if, however, the type information is bad, 
the data is also lost. The group size is 
four bytes. 



ROLL 37: EQUIVALENCE ROLL 



In Parse, this roll holds the names of 
all variables listed in source module 
EQUIVALENCE statements. One group is used 
for each variable name listed in the source 
statement, and EQUIVALENCE sets are 
separated from each other by a marker 
symbol. The group size for the EQUIVALENCE 
roll is twelve bytes. The format of the 
group is: 



4 bytes 



|< variable 

j. T _ 

| name > | 

, j 

J EQUIVALENCE OFFSET pointer 

L 



The pointer to the EQUIVALENCE OFFSET roll 
points to the first word of a plex on that 
roll which holds the subscript information 
supplied in the EQUIVALENCE statement. If 
no subscript was used on the variable in 
the EQUIVALENCE statement, the value zero 
appears in the third word of the group on 
the EQUIVALENCE roll. 

The roll is used and destroyed in Alloc- 
ate, during the assignment of storage for 
EQUIVALENCE variables. 



ROLL 36: FX AC ROLL 



This roll is used in Gen only and is a 
fixed length roll of 16 groups. The groups 
refer to the 16 general registers in order. 

The group size for the FX AC roll is 
four bytes. Each group on the roll con- 



ROLL 37: BYTE SCALAR ROLL 



This roll is used only in Allocate, 
where it holds (temporarily) the names of 
1-byte scalar variables. The group size 
for the BYTE SCALAR roll is eight bytes. 
The format of the group is: 
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4 bytes 



| < scalar name 

V T 

j > j TAG 

L X 



where the TAG field indicates the mode and 
size of the variable. 



ROLL 38 



USED LIB FUNCTION ROLL 



In Parse, the roll holds the names and 
other information for all library FUNCTIONS 
which are actually referenced in the source 
module. The group size for the USED LIB 
FUNCTION roll is twelve bytes. The infor- 
mation is placed on the roll in the follow- 
ing format: 



4 bytes 
-FUNCTION- 



h 



— T" 



TAG 



h 

JTAG 
L 



I flag 

.j. 



j no. arguments 



The TAG appeeiring in byte 7 indicates the 
mode and size of the function value. The 
TAG appearing in byte 9 indicates the mode 
and size of the arguments to the FUNCTION. 
The flag in byte 10 indicates whether the 
FUNCTION is in-line and, if it is, which 
generation routine should be used. If the 
flag is zero, a call is to be generated. 
The last two bytes hold the number of 
arguments to the FUNCTION. The maximum 
number of arguments allowed for the MIN and 
MAX FUNCTIONS is 16,000. 

In Allocate, the information in the 
first two words of the group is altered to: 

4 bytes 

r t t 1 

| TAG | | displacement | 
y x x ^ 

| base table pointer j 

L J 

where the base table pointer indicates the 
group on the BASE TABLE roll to be used in 
referring to the address of the subprogram. 
The displacement is the distance in bytes 
from the contents of the base table entry 
to the location at which the address of the 
subprogram will be stored. The TAG byte is 
unchanged, except in location, from Parse. 

The USED LIB FUNCTION roll is consulted 
by Gen in the construction of object code, 
but it is not modified. It is also pre- 
sent, but not modified, in Exit. 



ROLL 39: COMMON DATA ROLL 



This roll holds the names of all COMMON 
variables as defined in source module COM- 
MON statements. A marker symbol separates 
COMMON blocks on this roll. All informa- 
tion is placed on this roll in Parse. 

The group size is eight bytes. The 
first six bytes of each group hold the 
nameof the COMMON variable; the remaining 
two bytes are set to zero, as follows: 



4 bytes 



r — 



■variable name- 



— T" 
—X. 



In Allocate, the information on this 
roll is used and destroyed. The roll is 
not used in later phases. 



ROLL 39: HALF WORD SCALAR ROLL 



The roll is used only in Allocate, where 
it holds (temporarily) the names of half- 
word scalar variables defined in the source 
module. The group size for the HALF WORD 
SCALAR roll is eight bytes. The format of 
the group is: 



r — 
l<- 



4 bytes 
•scalar name — 
TAG 



— T - 

>l 



where the TAG indicates the mode and size 
of the variable. 



ROLL 40: COMMON NAME ROLL 



In Parse, this roll holds the name of 
each COMMON block, and a pointer to the 
location on the COMMON DATA roll at which 
the specification of the variables in that 
block begins. The group size for the 
COMMON NAME roll is twelve bytes. The 
format of the group is: 



4 bytes 



r — 
l<- 
I— 



-block name- 



— T - 

>l 



COMMON DATA pointer 
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The pointer points to the first variable in 
the list of names which follows the block 
name in the COMMON statement; since a 
single COMMON block may be mentioned more 
than once in source module COMMON state- 
ments, the same COMMON name may appear more 
than once on this roll. The information is 
placed on this roll as COMMON statements 
are processed by Parse. 

In Allocate, the roll is rearranged and 
the last word of each group is replaced by 
the size of the COMMON block in bytes, 
after duplicate COMMON names have been 
eliminated. The size is written out by 
Allocate and the roll is destroyed. 



ROLL 40: TEMP PNTR ROLL 



The group size for the TEMP PNTR roll is 
four bytes. This roll is used only in Gen, 
and holds pointers to those groups on the 
TEMP AND CONST roll that represent object 
module temporary storage locations. The 
information recorded on this roll is main- 
tained so that temporary storage created 
for one statement can be reused by subse- 
quent statements. 



ROLL 41 j IMPLICIT ROLL 



This roll is used only in Parse and 
Allocate, where it holds the information 
supplied by the source module IMPLICIT 
statement. The group size for the IMPLICIT 
roll is four bytes. Its format is: 



1 byte 
letter 



1 byte 1 byte 

T- 



TAG 



1 byte 




This information is placed on the roll by 
Parse. The TAG field in the third byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
assigned to the letter by means of the 
IMPLICIT statement. 



4 bytes 

r~ * i 

i H 

| subscript 1 | 

, < 

| subscript 2 | 

K -_ ^ 

i - i 

i • i 

i - i 

i ^ 

| subscript n | 

L . - . . J 

where n is the number of words in the pi ex 
exclusive of itself and,, therefore,, also 
the number of subscripts. Each subscript 
is recorded as an integer constant. 

The connection between a plex on this 
roll and the corresponding EQUIVALENCE 
variable is made by a pointer which appears 
on the EQUIVALENCE roll and points to the 
first word of the appropriate plex on this 
roll. 

In Allocate, the EQUIVALENCE OFFSET roll 
is used in the allocation of storage for 
EQUIVALENCE variables. It is destroyed 
during this phase, and does not appear in 
the later phases of the compiler. 

ROLL 42: FL AC ROLL 



This roll is used in Gen only, and is a 
fixed length roll of four groups. The 
groups refer to the four floating-point 
registers, in order. 

The group size for the FL AC roll is 
four bytes. Each group on the roll con- 
tains a pointer to the value which is held 
in the register at the present point in the 
object program; as the contents of the 
registers change, the pointers are changed. 
These pointers are used primarily to indic- 
ate that the register is in use and the 
mode of the value in it. If the register 
is not in use, the corresponding group on 
this roll contains zero. 



The IMPLICIT roll is used 
and destroyed. 



by Allocate, 



ROLL 43: LBL ROLL 



ROLL 42: EQUIVALENCE OFFSET ROLL 



This roll is constructed during the 
operation of Parse and holds the subscripts 
from EQUIVALENCE variables in the form of 
plexes. The group size for the EQUIVALENCE 
OFFSET roll is variable. Each plex has the 
form: 



This roll holds all labels used and/or 
defined in the source module. Each label 
is entered on the roll by Parse when it is 
first encountered, whether in the label 
field or within a statement. 

The group size for the LBL roll is four 
bytes. In Parse, the format of the LBL 
roll group is: 
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Form Y28-6638-1 

Page Revised 11/15/68 by TNL Y28-6826 



1 byte 

r t- 

| TAG | 



3 bytes 
binary label 



where the first byte is treated as the TAG 
field of a pointer, and the remaining three 
bytes contain the label, converted to a 
binary integer. 



In the TAG field, the mode portion (the 
first four bits) is used to indicate 
whether the label has been defined; the 
remainder of the TAG field is used to 
indicate whether the label is the target of 
a jump, the label of a FORMAT, or neither. 



The leftmost four bits of the TAG byte 
are used as follows: 

8 = Label is defined 

= Label is undefined 



The rightmost four bits of the TAG byte 
indicate the following: 

1 = This is the label of the target 
of a jump (GO TO) statement. 



3 = This is the 
statement. 



label of a FORMAT 



5 = This label is a possible re- 
entry point within an innermost 
DO loop that may have a possible 
extended range. (Parse inserts 
the hexadecimal 5 to indicate to 
Gen that the label is a possible 
re-entry point; the Gen phase 
then restores those registers 
that were saved before the 
extended range was entered. ) 

= None of the above conditions. 

In Allocate, the lower three bytes of 
each LBL roll group defining a jump target 
label are replaced by the lower three bytes 
of a pointer to the BRANCH TABLE roll 
group, which will hold the location of the 
label at object time. Each group defining 
a FORMAT statement label is replaced (lower 
three bytes only) with a pointer to the 
FORMAT roll group which holds the base 
pointer and displacement for the FORMAT. 
Groups defining the targets of unclosed DO 
loops are cleared to zero. 

In Gen, the LBL roll is used to find the 
pointers to the BRANCH TABLE and FORMAT 
rolls, but it is not altered. 



ROLL 44: SCALAR ROLL 



In Parse, the names of all unsubscripted 
variables which are not dummy arguments to 
statement functions are listed on the roll 
in the order of their appearance in active 
(non-specification) statements in the 
source module. Variables which are defined 
in specification statements, but which are 
never used in the source module, are not 
entered on the roll. The group size for 
the SCALAR roll is eight bytes. The format 
of the group is: 



4 bytes 
■scalar name- 



r— 
l<- 



■>l 
—A- 



TAG 



The TAG field appearing in the seventh byte 
of the group indicates the mode and size of 
the variable in the format of the TAG field 
of a pointer. 

In Allocate, the information left on the 
SCALAR roll by Parse is replaced by infor- 
mation indicating the storage assigned for 
the variable. The resulting format of the 
group is: 

4 bytes 

r t t t 

| TAG |DBG/CEAD | displacement | 
j. x x .J 

J base table pointer | 

L J 

The TAG field appearing in the first byte 
is unchanged, except in location, from the 
TAG field held in the SCALAR roll group 
during Parse. The DBG/CEAD flag (in the 
second byte) is logically split into two 
hexadecimal values. The first of these 
indicates debug references to the variable; 
the value is 1 for a scalar referred to in 
the INIT option; otherwise, the value is 
zero. The second hexadecimal value is 
nonzero if the variable is in COMMON, a 
member of an EQUIVALENCE set, or an argu- 
ment to a subprogram or a global dummy; 
otherwise, it is zero. The displacement in 
bytes 3 and 4, and the base table pointer 
in the second word, function together to 
indicate the storage location assigned for 
the variable. The base table pointer spe- 
cifies a BASE TABLE roll group; the dis- 
placement is the distance in bytes from the 
location contained in that group to the 
location of the scalar variable. If the 
scalar is a call by name dummy, the base 
table pointer is replaced by a pointer to 
the GLOBAL DMY roll group defining it, and 
the displacement is zero. 
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The SCALAR roll is checked, but modi- 
fied, during Unify, Gen, and Exit. 



occupy fewer than 16 characters are right- 
adjusted in the group with leading zeros. 



ROLL 44: HEX CONST ROLL 



ROLL 45: DATA VAR ROLL 



This roll holds the hexadecimal con- 
stants used in source module DATA 
statements. 

The format of the roll is identical for 
all phases of the compiler. The group size 
is 16 bytes. Two hexadecimal characters 
are packed to a byte, and constants which 



In Parse, this roll holds the names of 
variables listed in DATA statements and 
variables for which data values are pro- 
vided in Explicit specification statements. 
The names are entered on the roll when they 
are found in these statements. The group 
size for this roll is eight bytes. The 
groups have the following form: 
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4 bytes 



r — 
l<- 
t— 



-variable name- 



._ T - 

■>l 

—X. 



This information is used to ensure that 
no data values are provided in the source 
module for dummy variables. The informa- 
tion is left on the roll throughout Parse, 
but is cleared before Allocate operates. 

In Allocate, binary labels and the names 
of statement functions, scalar variables, 
arrays, global subprograms, and used 
library functions are placed on the roll in 
order. The group size for this roll is 
four bytes. Each label entered on the roll 
occupies one word; the names occupy two 
words each and are left- justified, leaving 
the last two bytes of each name group 
unused. 



ROLL 47: FULL WORD SCALAR ROLL 



This roll is used only in Allocate, 
where it holds the names of all fullword 
scalar variables defined by the source 
module. The group size is eight bytes. 
The format of the group on the roll is: 



4 bytes 



r — 
l<- 



■scalar name- 
t 



TAG 



where the TAG indicates the mode and size 
of the variable. This information is held 
on this roll only temporarily during the 
assignment of storage for scalar variables. 



The encoded information is placed on 
this roll by Allocate as its operations 
modify the rolls on which the information 
was originally recorded by Parse. Thus, 
all the labels appear first, in the order 
of their appearance on the LBL roll, etc. 
The information is used by the Exit phase 
in producing the object module listing (if 
the LIST option is specified by the user) . 



ROLL 4 6 



LITERAL TEMP (TEMP LITERAL) ROLL 



This roll is used only in Parse, where 
it holds literal constants temporarily 
while they are being scanned. The group 
size for the LITERAL TEMP or TEMP LITERAL 
roll is four bytes. Literal constants are 
placed on the roll one character per byte, 
or four characters per group. 



ROLL 48: COMMON AREA ROLL 



This roll is used only in Allocate, 
where it holds COMMON block names and sizes 
temporarily during the allocation of COMMON 
storage. The group size for the COMMON 
AREA roll is twelve bytes. The format of 
the group on the roll is: 



4 bytes 



i™- 

l<- 

h- 



-block name- 



— T' 



block size (bytes) 



ROLL 48: NAMELIST ALLOCATION ROLL 



ROLL 47: COMMON DATA TEMP ROLL 



This roll holds the information from the 
COMMON DATA roll temporarily during the 
operation of Allocate, which is the only 
phase in which this roll is used. The 
group size for the COMMON DATA TEMP roll is 
eight bytes. The format of the group is 
identical to that of the COMMON DATA roll, 
namely : 



4 bytes 



| < variable- 

1 T 



This roll is used only in Allocate, 
where it holds information regarding NAME- 
LIST items temporarily during the alloca- 
tion of storage for the NAMELIST tables. 
The group size for this roll is twelve 
bytes. The format of the group is: 



4 bytes 
-variable name- 

T 

---— —>J_ _ 

pointer 



r — " 
|<- 



I— - 

I 

L 



where the pointer indicates the group 
defining the variable on either the SCALAR 
or ARRAY roll. 
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ROLL 49: COMMON NAME TEMP ROLL 



This roll is used only in Allocate, 
where it holds the information from the 
COMMON NAME roll temporarily. The group 
size for the COMMON NAME TEMP roll is 
twelve bytes. The format of the group is 
therefore identical to that of the COMMON 
NAME roll: 



4 bytes 



r — 

l<- 
l~ 



-block name- 



h- 



L 



— T" 

>l 
._L. 



COMMON DATA pointer 



where the COMMON DATA pointer points to the 
list of variables in the COMMON block. 



4 bytes 

r 7 1 

| area code | ESD # | 
,. j j 

| address | 

L - , J 

where the area code indicates the control 
section in which the variable or constant 
is contained. The ESD number governs the 
modification of the location by the linkage 
editor, and the address is the location 
requiring modification. 

Information is placed on this roll by 
both Allocate and Exit, and the RLD cards 
are written from the information by Exit. 
The entries made on the RLD roll by Alloc- 
ate concern the NAMELIST tables; all 
remaining entries are made by Exit. 



ROLL 52: COMMON ALLOCATION ROLL 



ROLL 50: EQUIV ALLOCATION ROLL 



This roll is used only during Allocate, 
and is not used in any other phase of the 
compiler. When the allocation of storage 
for EQUIVALENCE variables has been com- 
pleted, the information which has been 
produced on the GENERAL ALLOCATION roll is 
moved to this roll. The group size for the 
EQUIV ALLOCATION roll is twelve bytes. The 
format of the group is, therefore, ident- 
ical to that on the GENERAL ALLOCATION 
roll: 






4 bytes 
-variabl< 



I— 
I 



— T - 

■>l 
.-X. 



-name > | displacement 

base table pointer 



where the base table pointer indicates the 
group on the BASE TABLE roll which will be 
used for references to the variable. The 
displacement is the distance in bytes from 
the location indicated in the BASE TABLE 
roll group to the location of the variable. 



This roll is used only in Allocate and 
is not used in any other phase of the 
compiler. When the allocation of COMMON 
storage has been completed, the information 
which has been produced on the GENERAL 
ALLOCATION roll is moved to this roll. The 
group size for the COMMON ALLOCATION roll 
is twelve bytes. The format of the group 
is, therefore, identical to that on the 
GENERAL ALLOCATION roll : 



4 bytes 



r — 

l<- 



-variable- 

T 



H I 



-name > | displacement 

i 

base table pointer 



where the base table pointer indicates the 
group on the BASE TABLE roll which will be 
used for references to the variable. 

The displacement is the distance in 
bytes from the location indicated in the 
BASE TABLE roll group to the location of 
the variable. 



ROLL 51: RLD ROLL 



ROLL 52: LOOP CONTROL ROLL 



This roll is used only in Allocate and 
Exit; it is not used in Parse. In both 
Allocate and Exit, the roll holds the 
information required for the production of 
RLD cards. The group size for the RLD roll 
is eight bytes. The group format is: 



This roll is created by Unify and is 
used by Gen. The information contained on 
the roll indicates the control of a loop. 

The group size for the LOOP CONTROL roll 
is twelve bytes. The format of the LOOP 
CONTROL roll group in Unify and Gen is: 
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Form Y28-6638-1 
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4 bytes 

r t 1 

J traits | coefficient ] 

j. x ) 

| register (this loop) | 

j. 1 

] base or register (outer loop) J 

L J 

where the first byte of the first word 
(traits) indicates whether the coefficient 
is initiated by a direct load. The remain- 
ing three bytes is the coefficient, which 
is the multiplier for the induction vari- 
able. The second four bytes is the regis- 
ter where the coefficient is required. The 
base is the source of initialization of the 
register; it can be either a constant, 
register, or an address. 



which, taken together, indicate the begin- 
ning location of the FORMAT statement. 
These groups are packed to the BASE of the 
roll; that is, this information for the 
first FORMAT appears in the first two words 
on the roll, the information for the second 
FORMAT appears in words 3 and 4, etc. 

The LBL roll group which defines the 
label of the FORMAT statement holds a 
pointer to the displacement recorded for 
the statement on this roll. 

The FORMAT roll is retained in this form 
for the remainder of the compilation. 



ROLL 54 



SCRIPT ROLL 



ROLL_53_i FORMAT_ROLL 

This roll is first used in Parse, where 
the FORMAT statements are placed on it. 
See Appendix D for the description of the 
encoding of the FORMAT statement. 

Each group of the FORMAT roll is in the 
form of a plex (the group size is given in 
word 0). The configuration of a FORMAT 
group in Parse is : 

4 bytes 

r 1 

] size of the group ] 

y ^ 

| pointer to the LBL roll ] 

j. ., 

J number of bytes in the FORMAT | 

j. 4 

1 . 1 

I . I 

I * ] 

L J 

Word contains a value which indicates the 
number of words in the group on the roll. 
The pointer to the LBL roll points to the 
label of the corresponding FORMAT state- 
ment. The next word gives the number of 
bytes of storage occupied by this particu- 
lar FORMAT statement. The ellipses denote 
that the encoded FORMAT follows this con- 
trol information. 

In Allocate, the FORMATS are replaced by 
the following: 

4 bytes 

r t 1 

] j displacement | 
j. j. ., 

] base table pointer J 

L J 



This roll is created by Parse as each 
appropriate array reference is encountered. 
The array reference indicated includes sub- 
scripts (one or more) which use the; 
instruction variable in a linear fashion. 
Unify uses the contents of the roll. 

The group size of the SCRIPT roll is 16 
bytes, plus an additional 4 bytes for each 
DO loop that is open at the point of the 
array reference represented by the entry. 
The group format of the SCRIPT roll in 
Parse and Unify is as described for the 
NONSTD SCRIPT roll. 



ROLL 55: 



LOOP DATA ROLL 



This roll contains the initializing and 
terminating data, and indicates the induc- 
tion variable and the nesting level of the 
particular loop from which this entry was 
created. 

The roll is created in Parse at the time 
that the loop is encountered. The group 
size of the LOOP" DATA roll is 20 bytes. 
The group format of the roll in Parse is: 

4 bytes 
r _. T n 

) TAG J nest level | 

f __ j. -i 

j pointer to induction variable | 
^ ., 

| pointer to n ± (initial value) | 

t '. j 

where the TAG byte contains a X'80' when an 
inner DO loop contains a possible extended 
range. The X'80* is placed there by Parse 
and tested by Gen. The Gen phase then 
produces object code to save general regis- 
ters 4 through 7 at the beginning of this 
DO loop so that the registers are not 
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altered in the extended range. The next 
three bytes indicate the nest level of the 
loop. The second word is a pointer to the 
SCALAR roll group which describes the 
induction variable. The third word of the 
group points to the initializing value for 
the induction variable, which may be repre- 
sented on the FX CONST roll or the SCALAR 
roll. 

During the operation of the Unify phase, 
the roll is completed with pointers to the 
LOOP CONTROL roll. During Unify, the LOOP 
CONTROL roll is also created; therefore, 
insertion of the pointers is done while the 
loop control data is being established. 



The following illustration shows the 
configuration of the LOOP DATA roll as it 
is used in Unify: 



4 bytes 

r ■ ■ 

J nest level 

j. 

} SCALAR pointer (induction variable) 
j. 

] FX CONST pointer or SCALAR pointer 
j. 

] LOOP CONTROL pointer (start init. ) 
j. 

] LOOP CONTROL pointer (end init.) 

L , 



The last two words (eight bytes) of the 
group are inserted by Unify. These point- 
ers point to the first and last LOOP 
CONTROL roll groups concerned with this 
loop. 



ROLL 56: PROGRAM SCRIPT ROLL 



This roll is a duplicate of the SCRIPT 
roll. The contents of the SCRIPT roll are 
transferred to the PROGRAM SCRIPT roll in 
Parse as each loop is closed. Each loop is 
represented by a reserved block on the 
roll. 

The group size of the PROGRAM SCRIPT 
roll is 16 bytes, plus an additional 4 
bytes for each nest level up to and includ- 
ing the one containing the reference repre- 
sented by the entry. The format of the 
PROGRAM SCRIPT roll group in Parse and 
Unify is as follows: 



r t- 

traits | 



4 bytes 

frequency 



ARRAY REF pointer 
ARRAY pointer 



ARRAY offset pointer 
induction variable coefficient 



induction variable coefficient 
(nest level = 2) 



j. . 1 

j induction variable coefficient | 
| (nest level = n) | 

L . . . J 

See the NONSTD SCRIPT roll for further 
description. 



ROLL_56j ARRAY PLEX ROLL 

This roll is used only in Gen, where it 
handles subscripts (array references) which 
are not handled by Unify. The group size 
for the ARRAY PLEX roll is twelve bytes. 
The format of the group on the roll is : 

4 bytes 

r . ., 

j pointer to array | 

j. 1 

] pointer to index | 

j. „ ., 

| displacement f 

u „. J 

The pointer in the first word of the group 
points to the ARRAY REF roll when the 
subscript used contains DO dependent linear 
subscripts (which are handled by Unify) and 
non-linear variables. Otherwise, the 
pointer refers to the ARRAY roll. 

The second word of the group holds a 
pointer to the index value to be used in 
the subscripted array reference. This 
pointer points to general register 9 on the 
FX AC roll if the index value has been 
loaded into that register? if the index 
value has been stored in a temporary loca- 
tion, the pointer indicates the proper 
location on the TEMP AND CONST roll; if the 
index value is a fixed constant, the 
pointer indicates the proper group on the 
FX CONST roll. When the information in 
this word has been used to construct the 
proper instruction for the array reference, 
the word is cleared to zero. 
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The displacement, in the third word of 
the group, appears only when the first word 
of the group holds a pointer to the ARRAY 
roll. Otherwise, the displacement is on 
the ARRAY REF roll in the group indicated 
by the pointer in the first word, and this 
word contains the value zero. This value 
is the displacement value to be used in the 
instruction generated for the array 
reference. 



111112 3 

125690 1 

r t t T 1 

I op code |Ra. |R 2 I offset | 
j. i i j .j 

| or TEMP AND CONST roll | 

| pointer | 

j. 1 

| or TEMP AND CONST roll | 

j pointer | 

,. ^ 

| ARRAY pointer | 

i J 



ROLL 57: ARRAY REF ROLL 



ROLL 58: ADR CONST ROLL 



Pointers to this roll are inserted into 
the Polish notation by Parse. At the time 
that these pointers are established, the 
ARRAY REF roll is empty. The pointer is 
inserted into the Polish notation when an 
array reference includes linear loop- 
controlled subscripts. 



The roll is initially created by Unify 
and completed by Gen. The group size of 
the ARRAY REF roll is 16 bytes. The format 
of the ARRAY REF roll group as it appears 
in Unify is as follows: 



111112 3 

125690 1 

r t t T 1 

I |Ri |R 2 | offset | 
| i ± x -I 

| pointer to register (R x ) or to the | 
| TEMP AND CONST roll | 

| ., 

| pointer to register (R 2 ) or to the | 
j TEMP AND CONST roll | 

l 4 

j pointer to the ARRAY roll | 

L J 



This roll contains relocatable informa- 
tion that is to be used by Exit. 

Unify creates the roll which contains a 
pointer to the TEMP AND CONST roll and an 
area code and displacement. The pointer 
indicates an entry on the TEMP AND CONST 
roll which must be relocated according to 
the area code. The displacement is the 
value to be placed in that temporary 
storage and constant area location. 

The group size of the ADR CONST roll is 
eight bytes. The format of the ADR CONST 
roll group in Unify is: 

4 bytes 

r t 1 

| area code | displacement | 

j j ^ 

I TEMP AND CONST pointer j 

I J 

These groups are constructed by Unify to 
provide additional base table values for 
indexing. 



ROLL 59: AT ROLL 



The first word of the group contains the 
low 20 bits of an instruction which it 
being formatted by the compiler. R ± and R 2 
are the two register fields to be filled 
with the numbers of the registers to be 
used for the array reference. Word 2 of 
the group contains the pointer indicating 
the register to be assigned for R x . Word 3 
of the group indicates the register R 2 . 
When Rj. and R 2 have been assigned, the 
second and third words are set to zero. 



Gen completes the entry by adding the 
operation code to the instruction that is 
being built. The format of an ARRAY REF 
roll group in Gen is: 



This roll is constructed 
used in Gen. 
remaining phases 
roll is twelve 
group is: 



in Parse and 

It is not used in the 

The group size for this 

bytes. The format of the 



4 bytes 
AT label pointer 



V— 



L 



debug label pointer 
return label pointer 



All three of the pointers in the group 
point to the LBL roll. The first points to 
the label indicated in the source module AT 
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statement. The second points to the made 
label supplied by the compiler for the code 
it has written to perform the debugging 
operations. The third label pointer indi- 
cates the made label supplied for the point 
in the code to which the debug code 
returns; that is, the code which follows 
the branch to the debugging code. 



ROLL 60: SUBCHK ROLL 



This roll is initialized in Parse and 
used in Allocate. It does not appear in 
later phases. The group size for this roll 
is eight bytes.. The format of the group 
is: 

4 bytes 

r 1 

| < variable name | 

h T ^ 

, _ >, o | 

L . X J 



Each group holds the name of an array 
listed in the SUBCHK option of a source 
module DEBUG statement. 



ROLL 62: GENERAL ALLOCATION ROLL 



This roll is used only during Allocate, 
and is not used in any other phase of the 
compiler. During the various allocation 
operations performed by this phase, the 
roll holds the information which ultimately 
resides on the remaining ALLOCATION rolls. 
The group size for the GENERAL ALLOCATION 
roll is twelve bytes. The format of the 
group is: 



4 bytes 
variable 

T ■ 

-name >| displacement 

i 

base table pointer 



r — 

l<- 
h- 



ROLL 60: NAMELIST MPY DATA ROLL 



where the base table pointer indicates the 
group on the BASE TABLE roll which will be 
used for references to the variable. 

The displacement is the distance in 
bytes from the location indicated in the 
BASE TABLE roll group to the location of 
the variable. 

During the allocation of COMMON, the 
third word of each group holds a relative 
address until all of a COMMON block has 
been allocated, when the relative address 
is replaced by the pointer as indicated 
above. During the allocation of EQUIVA- 
LENCE variables, relative addresses within 
the EQUIVALENCE variables are used and then 
replaced by pointers as for COMMON. 



This roll is set up during the construc- 
tion of the NAMELIST tables in Allocate. 
In Exit, the roll is used to complete the 
information in the NAMELIST tables. The 
roll is not used in the other phases of the 
compiler. The group size for the NAMELIST 
MPY DATA roll is eight bytes. The format 
of the group on this roll is: 

4 bytes 

r ■ n 

| multiplier constant | 

y _ 4 

| address | 

i . . j 

The multiplier constant refers to an 
array dimension for an array mentioned in a 
NAMELIST list. The address is the location 
in a NAMELIST table at which a pointer to 
the multiplier constant must appear. In 
Exit, the constant is placed in the tem- 
porary storage and constant area of the 
object module, and a TXT card is punched to 
load its address into the location speci- 
fied in the second word of the group. 



ROLL 62 



CODE ROLL 



This roll holds the object code 
generated by the compiler, in binary. This 
roll is first used in Gen, where the object 
code for the entire source module is built 
up on the roll. 

The group size for the CODE roll is 
eight bytes. Two types of groups are 
placed on the roll during the operations of 
Gen. The first type of group is added to 
the roll by the instructions IEYBIN, IEYBIM 
and IEYBID. In this type of group, the 
binary instruction is left- justified in the 
eight bytes. When the instruction occupie- 
sonly two bytes, the first word is com- 
pleted with zeros. When the instruction 
occupies two or four bytes, the second word 
of the group holds a pointer to the defin- 
ing group for the operand of the instruc- 
tion. When the instruction is a 6-byte 
instruction, the last two bytes of the 
group contain zero, and no pointer to the 
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operand appears. A unique value is placed 
on the CODE roll by these instructions to 
indicate the beginning of a new control 
section. 

The second type of group entered on the 
CODE roll appears as a result of the 
operation of one of the instructions IEYPOC 
and IEYMOC. These groups do not observe 
the 8-byte group size of the roll, but 
rather begin with a word containing a 
special value in the upper two bytes; this 
value indicates an unusual group. The 
lower two bytes of this word contain the 
number of words in the following informa- 
tion. This word is followed by the binary 
instructions . 

The object module code is written out 
from this roll by the Exit phase of the 
compiler. 



WORK ROLL 



The WORK roll is often used to hold 
intermediate values. The group size for 
this roll is four bytes. The name WO is 
applied to the bottom of the WORK roll (the 
last meaningful word) , Wl refers to the 
next- to-bottom group on the WORK roll, etc. 
In the POP instructions these names are 
used liberally, and must be interpreted 
with care. Loading a value into WO is 
storage into the next available word, 
(WRKADR) + 4, unless specifically otherwise 
indicated, while storage from WO to another 
location involves access to the contents of 
the last word on the roll, (WRKADR). 
WRKADR is normally incremented following a 
load operation and decremented following a 
store. 



ROLL 63: AFTER POLISH ROLL 



EXIT ROLL 



This roll is constructed in Parse, 
remains untouched until Gen, and is de- 
stroyed in that phase. 

The AFTER POLISH roll holds the Polish 
notation produced by Parse. The Polish for 
one statement is moved off of the POLISH 
roll and added to this roll when it is 
completed; thus, at the end of Parse, the 
Polish notation for the entire source 
module is on this roll. 

In Gen, the Polish notation is returned 
to the POLISH roll from the AFTER POLISH 
roll for the production of object code. At 
the conclusion of the Gen phase, the roll 
is empty and is no longer required by the 
compiler. The group size for this roll is 
four bytes. 



WORK AND EXIT ROLLS 



Because of the nature and frequency of 
their use, the WORK roll and the EXIT roll 
are assigned permanent storage locations in 
IEYROL, which is distinct from the storage 
area reserved for all other rolls. As a 
result, these rolls may never be reserved 
and are manipulated differently by the POP 
instructions. The group stats and the 
items BASE and TOP are not maintained for 
these rolls. The only control item main- 
tained for these rolls corresponds to the 
item BOTTOM, and is carried in the general 
register WRKADR (register 4) for the WORK 
roll and EXTADR (register 5) for the EXIT 
roll. 



The EXIT roll holds exit addresses for 
subroutines and, thereby, provides for the 
recursion used throughout the compiler. 
The ANSWER BOX is also recorded on the EXIT 
roll. The group size for the EXIT roll is 
twelve bytes. The first byte is the ANSWER 
BOX. The remaining information on the roll 
is recorded when a subroutine jump is 
performed in the compiler code; it is used 
to return to the instruction following the 
jump when the subroutine has completed its 
operation. 

The values placed on the EXIT roll 
differ, depending on the way in which the 
subroutine jump is performed. As a result 
of the interpretation of the IEYJSB POP 
instruction, the last three bytes of the 
first word contain the location of the 
IEYJSB plus two (the location of the POP 
instruction following the IEYJSB, the 
return point) ; the second word of the group 
holds an address within the IEYJSB subrou- 
tine; the third word contains the location 
of the global label for the routine from 
which the subroutine jump was made plus two 
(the value of LOCAL JUMP BASE in that 
routine) . 

As an example of how a subroutine jump 
is accomplished by means of machine lan- 
guage instructions, the following instruc- 
tions are used: 

L TMP,G0052J 

BAL ADDR,JSB STORE IN EXIT 

to replace the POP instruction 

IEYJSB G0052J 
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In this case, no value is placed in the the base address to be used for local jumps 

last three bytes of the first word; the in the routine from which the subroutine 

second word holds the address of the jump was made), 
instruction following the BAL; the third 

word holds the location of the global label On return from a subroutine, these 

immediately preceding the BAL plus two (the values are used to restore POPADR and LOCAL 

value of POPADR when the jump is taken, JUMP BASE and they are pruned from the EXIT 

which is also the value of LOCAL JUMP BASE, roll. 
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APPENDIX C: POLISH NOTATION FORMATS 



This appendix shows the format of the 
Polish notation which is generated by the 
compiler for each type of statement in the 
FORTRAN IV (G) language. 



GENERAL FORM 



The format of the Polish notation 
depends on the statement type, but always 
terminates with the control driver which 
indicates the type of statement: 

4 bytes 

r 1\ 

v A 

I . |f Polish for 

| . | \ statement 

I • it 

[=====|) 

| control driver | 

h .| 

| statement number | 

L J 

The statement number is an integer whose 
value is increased by one for each state- 
ment processed. This value is used only 
within the compiler. 



LABELED STATEMENTS 



For labeled statements, a pointer to the 
label is inserted between the control driv- 
er and the statement number: 



4 bytes 



j) Polish for 
statement 



j 

| 

| control driver 

^ 

| label 

j. 

| pointer to statement label 
|. 

\ statement number 

L 



The label information is not included in 
the following descriptions of the Polish 
notation for individual statement types. 



ARRAY REFERENCES 



The Polish notation for an array 
reference whose subscripts are all linear 
functions of DO variables consists simply 
of a pointer to the appropriate group on 
the ARRAY REF roll. The Polish notation 
generated for all other references to an 
array element is: 



4 bytes 
array driver 
pointer to array 
| 



multiplier 



argument driver 



multiplier 



argument driver 



multiplier 



argument driver 



Polish for 
subscript 1 



Polish for 
subscript 2 



Polish for 
subscript 7 



dummy array pointer 



The pointer to the array may indicate 
either (1) the ARRAY roll, when none of the 
subscripts used in the array reference are 
linear functions of DO variables, or (2) 
the ARRAY REF roll, when some, but not 
all, of the subscripts are linear functions 
of DO variables. The subscripts for which 
Polish notation appears are those which are 
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not linear functions of DO variables. Only 
the required number of subscripts appear. 

The multiplier following each subscript 
is the multiplier for the corresponding 
array dimension. This value is an integer 
unless the array is a dummy including dummy 
dimensions which affect this array dimen- 
sion; in this case, the multiplier is 
represented by a pointer to the TEMP AND 
CONST roll. 



ENTRY STATEMENT 



The Polish notation generated for the 
ENTRY statement is: 

4 bytes 

r 1 

| pointer to ENTRY name | 

y ., 

| ENTRY driver | 

| .| 

| statement number | 

L J 

The pointer points to the ENTRY NAMES 
roll. 



ASSIGN STATEMENT 



The Polish notation generated for the 
ASSIGN statement is : 

4 bytes 

r 1 

| pointer to label | 

1 ^ 

| pointer to variable | 

| _ ., 

j ASSIGN driver j 

|. .| 

| statement number | 

L . J 



ASSIGNED GO TO STATEMENT 



The Polish notation generated for this 
statement is : 

4 bytes 

I T 

| pointer to variable | 

| ., 

| assigned GO TO driver | 

I. 4 

| statement number | 

L J 



LOGICAL IF STATEMENT 



The Polish notation generated for this 
statement is: 

4 bytes 

r 

,. . ., 

| . |f Polish for 

| . |^ logical 

j . |l expression 

|. ., 

h H; 

,. H 

| . |f Polish for 

| . |\ statement 

I • l( "S" 

,. A 

j. _ ^ 

| logical IF driver | 

I. ^ 

I statement number | 

L „J 



RETURN STATEMENT 



The following Polish notation is pro- 
duced for the RETURN statement: 

4 bytes 

r 1 

| pointer to I | 

h _ .j 

| RETURN driver | 

f. 1 

| statement number | 

L . J 

The pointer to I does not appear if the 
statement is of the form RETURN. 



ARITHMETIC AND LOGICAL ASSIGNMENT STATEMENT 



The Polish notation produced for this 
statement is: 

4 bytes 

r 1 

| pointer to variable to be set | 

^ : + 

j. ., 

| . |f Polish for 

j . |/ right side 

I • I 

h ___ ^ 

, f 

(assignment driver | 

|. .) 

| statement number | 

L J 
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The Polish notation for the right side 
of the assignment statement is in the 
proper form for an expression, and includes 
array references where they appear in the 
source statement. The variable to be set 
may also be an array element; in this case, 
the pointer to the variable to be set is 
replaced by the Polish notation for an 
array reference. 



UNCONDITIONAL GO TO STATEMENT 



The Polish notation produced for this 
statement is: 



4 bytes 

i 1 

| pointer to label | 

| ., 

| GO TO driver | 

Y 1 

| statement number | 

l j 



ARITHMETIC IF STATEMENT 



The following Polish notation is pro- 
duced for this statement: 



4 bytes 



|r Polish for 
j> expression 



branch 
. points 



|. 

|. 

| pointer to xl 

,. 

| pointer to x2 

y 

I pointer to x3 

,. 

| pointer to label next stmt. 
|. 

| IF driver 

H 

| statement number 

i 



The label of the next statement is 
inserted following the IF driver because 
the next statement may be one of the branch 
points referenced; if it is, code will be 
generated to fall through to that statement 
in the appropriate case(s). 



COMPUTED GO TO STATEMENT 



DO STATEMENT 



The following Polish notation is pro- 
duced for this statement: 



The following is the Polish notation 
produced for the statement DO x i = ml, m2, 
m3: 



4 bytes 



j pointer to xl 
I 

| pointer to x2 

I 

I 



|. 

| pointer to xn 

j. 

| number of branch points 
(. 

| pointer to variable 

1 

| computed GO TO driver 
y 

| statement number 

i 



branch 
points 



4 bytes 



j pointer to M 2 (test value) 



| pointer to M 3 (increment) 
,. 

| pointer to LOOP DATA roll 



| pointer to LBL roll 
|. 

| DO driver 

H 

| statement number 



The pointer to m3 appears, even if the 
increment value is implied. 
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CONTINUE STATEMENT 



The Polish notation produced for this 
statement is : 

4 bytes 

r 1 

| CONTINUE driver | 

y _ ., 

{statement number | 

L J 



DATA STATEMENT A ND D ATA IN EXPLICIT 
SPECIFICATION STATEMENTS 



For each statement (DATA or Explicit 
specification) in which data values for 
variables are specified, a Polish record is 
produced. This record ends with a DATA 
driver and a statement number. For each 
variable initialized by the statement, the 
following appears: 



PAUSE AND STOP STATEMENTS 

The Polish notation produced for these 
statements is : 

4 bytes 

r 1 

| pointer to constant | 

I .| 

(PAUSE or STOP driver j 

Y i 

{statement number | 

L J 

For both the PAUSE statement and the 
STOP statement, the constant appears on the 
LITERAL CONST roll, regardless of its 
nature in the source statement. If no 
constant appears in the statement, the 
pointer to the constant points to the 
literal constant zero. 



4 bytes 

r ■ 1 

| pointer to variable | 

^ __ H 

| offset | 

i j 



The offset is the element number at which 
initialization begins; if it does not 
apply, this word contains the value zero. 



This information is followed by the pair 
of groups 



END STATEMENT 



The Polish notation generated for the 
END statement is : 

4 bytes 

i 1 

| END driver { 

h ., 

| statement number | 

L J 



BLOCK DATA STATEMEN T 

The Polish notation generated for the 
BLOCK DATA statement is: 

4 bytes 

r 1 

j BLOCK DATA driver j 

1 ., 

| statement number | 

L J 



4 bytes 

r 1 

(repetition count ( 

, _ _ ., 

| pointer to constant | 

L . . J 

or, when the constant is literal, the three 
groups 

4 bytes 

r . ., 

(repetition count | 

j. < 

| pointer to constant | 

,. j 

| number of elements | 

i . j 



where the last group indicates the number 
of elements of an array to be filled by the 
literal constant. For array initializa- 
tion, one or more of the "constant" groups 
may appear. 
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I/O LIST 



The Polish notation for an I/O List 
contains pointers to the variables in the 
list, Polish notation for array references 
where they appear, and pointers and drivers 
to indicate implied DO loops. 

The I/O list 

((C(I),I=1,10),A,B) 

for example, results in the following 
Polish notation: 

1 bytes 

i ■ 1 

| pointer to M a (test value) | 



j pointer to M 3 (increment) 



| pointer to LOOP DATA roll 
|. 

| implied DO driver 



j pointer to C 

} 

|1 (number of subscripts) 



j pointer to I (subscript) 

| argument driver 

} 

| array driver 

h 



|IOL DO Close driver 
t 

| pointer to A 

| 

| pointer to B 



1 



The area between, and including, the 
implied DO driver and the array driver is 
an array reference, as it would appear 
wherever C(I) was referred to in source 
module statements. 



INPUT STATEMENTS 



The following paragraphs discuss the 
Polish notation produced for all forms of 
the READ statement except direct access. 



FORMATTED READ 



For the form READ (a, b) list, the for- 
matted READ, the Polish notation generated 
is: 



4 bytes 
pointer to a (data set) 
FORMAT driver 
pointer to FORMAT 
END= driver 
pointer to END label 
ERR= driver 
pointer to ERR label 
IOL driver 



| 

code word 
k 



IBCOM entry, formatted READ 
H _ 

pointer to IBCOM 



READ/WRITE flag, zero= WRITE, 
nonzero= READ 



READ WRITE driver 
statement number 



Polish for 
I/O list 



The pointer to the FORMAT points either 
to the label of the FORMAT statement or to 
the array in which the FORMAT is stored. 
The END= and ERR= drivers and the pointers 
following them appear only if the END and 
ERR options are used in the statement; 
either one or both may appear, and in any 
order with respect to each other. If no 
I/O list appears in the statement, the 
Polish for the I/O list is omitted, but the 
IOL driver appears nonetheless. 

The code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
operation and unit for the input/output 
statement. This code word distinguishes 
among the various READ statements and is 
inserted in the code produced for them. 

Input/output operations are performed by 
the RUNTIME routines. IBCOM is a transfer 
routine in RUNTIME through which all input/ 
output except NAMELIST is performed. The 
IBCOM entry for formatted READ indicates an 
entry point to this routine. (See Appendix 
D for further discussion of IBCOM. ) The 
pointer to IBCOM points to the routine on 
the GLOBAL SPR06 roll. 
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NAMELIST READ 



For the form READ (a,x), the NAMELIST 
READ, the following changes are made to the 
Polish notation given above: 

1. The FORMAT driver is replaced by a 
NAMELIST driver. 

2. The pointer to the FORMAT is replaced 
by a pointer to the NAMELIST. 

3. The code word value is changed. 

4. The IBCOM entry is replaaed by the 
value zero, since NAMELIST input/ 
output is not handled through IBCOM. 

5. The pointer to IBCOM is replaced by a 
pointer to the NAMELIST READ routine. 

6. No I/O list may appear. 
UNFORMATTED READ 



For the form READ (a) list, the unfor- 
matted READ,, the following changes are made 
to the Polish notation given above: 

1. The FORMAT driver is removed. 

2. The pointer to the FORMAT is removed. 

3. The IBCOM entry, formatted READ, is 
replaced by the IBCOM entry, unfor- 
matted READ. 

READ STANDARD UNIT 



For the form READ b, list, the standard 
unit READ statement, the following changes 
are made to the Polish notation given 
above : 

1. No END= or ERR= drivers may appear, 
nor may the corresponding pointers to 
labels. 

2. The code word value is changed. 
OUTPUT STATEMENTS 



The following paragraphs discuss the 
Polish notation produced for all forms of 
the WRITE statement except direct access, 
and for the PRINT and PUNCH statements. 



FORMATTED WRITE 



For the form WRITE la,b) list, the 
formatted WRITE, the Polish notation 
generated is: 



4 bytes 
pointer to a (data set) 
FORMAT driver 
pointer to FORMAT 
END= driver 
pointer to END label 
ERR= driver 
pointer to ERR label 
IOL driver 



code word 

IBCOM entry, formatted WRITE 

pointer to IBCOM 



READ/WRITE flag, zero= WRITE, 
nonzero= READ 



READ WRITE driver 
statement number 



Polish for 
I/O list 



The pointer to the FORMAT points either 
to the label of the FORMAT statement or to 
the array in which the. FORMAT is stored. 
The END= and the ERR= drivers and the 
pointers following them appear only if the 
END and ERR options are used in the state- 
ment; either one or both may appear, and in 
any order relative to each other. If no 
I/O list appears in the statement, the 
Polish for the I/O list is omitted, but the 
IOL driver appears nonetheless. 



The code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
operation and unit for the input/output 
statement. This code word distinguishes 
among the various output statements and is 
inserted in the code produced for them. 



Input/output operations are performed by 
the RUNTIME routines. IBCOM is the initial 
entry of a transfer vector in IHCFCOMH 
through which all input/output except NAME- 
LIST is performed. (IHCFCOMH is further 
discussed in Appendix P. > The pointer to 
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IBCOM points to the routine on the GLOBAL 
SPROG roll. 



1. No END= or ERR= drivers may appear, 
nor may the corresponding pointers to 
labels. 



NAMELIST WRITE 



2. The code word value is changed. 



For the form WRITE (a, x>, the NAMELIST 
WRITE, the following changes are made to 
the Polish notation given above: 



1. 
2. 

3. 

4. 

5. 



The FORMAT driver 
NAMELIST driver. 



is replaced by a 



The pointer to the FORMAT is replaced 
by a pointer to the NAMELIST. 

The code word value is changed. 

The IBCOM entry is replaced by the 
value zero, since NAMELIST input/ 
output is not handled through IBCOM. 

The pointer to IBCOM is replaced by a 
pointer to the NAMELIST WRITE routine. 



6. No I/O list may appear. 



UNFORMATTED WRITE 



For the form WRITE (a) list, the unfor- 
matted WRITE, the following changes are 
made to the Polish notation given above: 

1. The FORMAT driver is removed. 

2. The pointer to the FORMAT is removed. 

3. The IBCOM entry, formatted WRITE, is 
replaced by the IBCCM entry, unfor- 
matted WRITE. 



PRINT 



The Polish notation generated for the 
form PRINT b, list is identical to that 
given for the formatted WRITE statement, 
with the following changes: 

1. No END= or ERR= drivers may appear, 
nor may the corresponding pointers to 
labels. 

2. The code word value is changed. 



PUNCH 



The Polish notation for the statement 
PUNCH b, list is as given for the formatted 
WRITE with the following changes: 



DIRECT ACCESS STATEMENTS 



The following paragraphs discuss the 
Polish notation produced for the direct 
access input/output statements. 



READ, DIRECT ACCESS 



For the forms READ (a*b, b) list and READ 
(a*r) list, the following Polish notation 
is generated: 



U bytes 
pointer to a (data set) 
direct 10 driver 



expression driver 



pointer to b 



ERR= driver 

pointer to ERR label 

IOL driver 



code word 



H- 



IBCOM entry, READ 



pointer to IBCOM 



READ/WRITE flag, zero= WRITE, 
nonzero= READ 



READ WRITE driver 



statement number 



Polish for 

r 



Polish for 
I/O list 
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The END= and ERR= drivers and the point- 
ers following them appear only if the END 
and ERR options are used in the source 
statement; either one or both may appear, 
and in any order with respect to each 
other. If b does not appear in the source 
statement (the second form), the corres- 
ponding pointer does not appear in the 
Polish notation. If the I/O list does not 
appear in the source statement, the Polish 
notation for the I/O list is omitted from 
the Polish, but the IOL driver appears 
nonetheless. 

The code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
operation and unit for the input/output 
statement. This code word distinguishes 
the direct access statements from other 
input/output statements and is inserted in 
the code produced for them. 



WRITE, DIRECT ACCESS 



The Polish notation produced for the 
forms WRITE (a*r,b) list and WRITE (a'r) 
list is identical to that produced for the 
corresponding forms of the READ, direct 
access statement with the following 
exceptions : 

1. The IBCOM entry, READ is replaced by 
the appropriate IBCOM entry, WRITE. 

2. The value of the code word is changed. 



4 bytes 



pointer to al 



pointer to ml 



pointer to 11 



E, L, or U 



pointer to vl 



pointer to a 2 



pointer to v2 



pointer to an 



pointer to vn 



DEFINE FILE driver 



H 



statement number 



file 1 data 



file 2 data 



file n data 



where the fourth word of each set of file 
data holds the BCD character E, L, or U in 
the high-order byte and zeros in the 
remaining bytes. 



FIND 



The Polish notation produced for this 
statement is identical to that for an 
unformatted direct access READ statement 
given above, with the exception that the 
code word is changed to indicate the FIND 
statement. 



DEFINE FILE 



The form of this statement is: 

DEFINE FILE al (ro±, 11, f 1, vl) , a2 
<m2,12,f 2,v2) , . .. ,an(mn,ln, fn, vn) 

The Polish notation produced for it is 



END FILE STATEMENT 



The Polish notation produced for END 
FILE is: 



4 bytes 



| pointer to a (data set) 
|. _„_. 

j IBCOM entry for END FILE 



| pointer to IBCOM 
j. . 

JBSREF driver 

f 



| statement number 

L 
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REWIND STATEMENT 



The Polish notation produced for the 
REWIND statement is identical to that for 
the END FILE statement with the exception 
that the IBCOM entry for END FILE is 
replaced by the IBCOM entry for REWIND. 

BACKSPACE STATEMENT 



4 bytes 



The Polish notation produced for the 
BACKSPACE statement is identical to that 
for the END FILE statement, except that the 
IBCOM entry for END FILE is replaced by the 
IBCOM entry for BACKSPACE. 



STATEMENT FUNCTION 



The Polish notation generated for a 
statement function is: 



4 bytes 



pointer to function 


name 




• 




statement 


function 


driver 


statement 


number 





Polish for 
right side 



subprogram 


driver 




pointer to 


function 


name 


number of arguments 


expression 


driver 







expression 


driver 




« 


expression 


driver 



Polish for 
argument 1 



Polish for 
argument 2 



Polish for 
argument n 



FUNCTION STATEMENT 



expression driver 
pointer to function name 



This Polish notation is part of the 
Polish notation for the expression in which 
the function reference occurs. 



The Polish notation produced for the 
FUNCTION statement is: 

4 bytes 

r 1 

| pointer to ENTRY name | 

|. 1 

| FUNCTION driver j 

j. 1 

| statement number | 

L j 

where the pointer points to the ENTRY NAMES 
roll. 

FUN^TION_iSTATEMENT_OR_SJJB^ROGRAM)_ 
REFERENCE 



The Polish notation generated for a 
reference to a function is : 



SUBROUTINE STATEMENT 

The Polish notation generated for the 
SUBROUTINE statement is: 

4 bytes 

r i 

j pointer to ENTRY name | 

|. .j 

j SUBROUTINE driver j 

j. ., 

J statement number | 

i_. j 

where the pointer points to the ENTRY NAMES 
roll. 
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CALL STATEMENT 



The Polish notation for the CALL state- 
ment is : 



4 bytes 



subprogram! driver 
, 

pointer to subprogram name 
| 

number of arguments 
,. 

expression driver 
I 



r-- 



1 _. 

expression driver 
j. 



expression driver 



h~ 



expression driver 
| 

pointer to subprogram name 



pointer to xl 
pointer to x2 



pointer to xn 
, 

number of label arguments 



computed GO TO driver 
j 

CALL driver 



statement number 



Polish for 
argument 1 



Polish for 
argument 2 



Polish for 
argument n 



label 
arguments 



Label arguments are not counted in the 
"number of arguments" which appears as the 
third word of the Polish notation, and no 



representation of them appears in the 
Polish notation for the arguments. All 
label arguments are grouped together at the 
bottom of the Polish as indicated. If no 
label arguments exist, the section from the 
"pointer to xl" to and including the "com- 
puted GO TO driver" does not appear. 



DEBUG FACILITY STATEMENTS 



The following paragraphs describe the 
Polish notation produced for the statements 
of the debug facility. 



AT 



The Polish notation generated for the AT 
statement is: 



4 bytes 



j pointer to AT group 



AT driver 



statement number 



The pointer points to the AT roll group 
which contains the information relating to 
the AT statement represented by the Polish 
notation. 



TRACE ON 

The Polish notation generated for the 
TRACE ON statement is: 

4 bytes 

r 1 

| TRACE ON driver | 

|. _ ., 

| statement number | 

L . J 



TRACE OFF 



The Polish notation generated for the 
TRACE OFF statement is: 

4 bytes 

r 1 

| TRACE OFF driver | 

t _ 1 

| statement number | 

L . J 
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DISPLAY 



The Polish notation generated for the 
DISPLAY statement is : 

4 bytes 



pointer to NAMELIST WRITE 



NAMELIST pointer 



DISPLAY driver 



statement number 



where the pointer to NAMELIST WRITE points 
to this routine on the GLOBAL SPROG roll; 
the value zero is placed on the roll for 
conformity with other NAMELIST input/output 
statements; the NAMELIST pointer points to 
a group constructed for the DISPLAY state- 
ment on the NAMELIST NAMES roll. 
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APPENDIX D: OBJECT CODE PRODUCED BY THE COMPILER 



This appendix describes the code pro- 
duced by the FORTRAN IV (G) compiler for 
various types of source module statements. 



DO STATEMENT 



The use of a DO loop in a FORTRAN 
program can be described by the following 
example: 



BRANCHES 



DO 5 I = ml,m2,ro3 



All branch instructions in the object 
module consist of a load from the branch 
table, followed by a BCR instruction, eith- 
er conditional or unconditional, which uses 
the branch table value as its target. 

The production of this code depends on 
the operation of Allocate, which replaces 
all jump target labels on the LBL roll with 
pointers to entries in the object module 
branch table. Using this information, Gen 
can write the load and branch instructions 
even though the address of the target may 
not yet be known. 

When Gen encounters a labeled statement 
which is a jump target, it sets the appro- 
priate entry in the branch table to the 
address of the first instruction it pro- 
duces for that statement. 



5 CONTINUE 



When the DO statement is processed dur- 
ing phase 4, the following takes place: 



1. The code 



L R0,ml 
A ST RO,I 



is generated, where the label A is 
constructed by Gen. 



COMPUTED GO TO STATEMENT 



2. The address of the instruction labeled 
A is placed in the branch table. 



The following code is generated for the 
Computed Go To statement: 



L 


15, variable 


SLL 


15,2 


BALR 


11,0 


LTR 


15,15 


BNH 


4n+22<0,14) 


LA 


l,4n<0,0> 


CR 


15,1 


BH 


4n+22<0,14> 


L 


1,18(15,14) 


BR 


1 



3. An entry is made on the DO LOOPS OPEN 
roll which contains pointers to m2 f 
m3, the label A, I, and the label 5. 



On receiving the Polish notation for the 
CONTINUE statement in the example, phase 4 
produces the following code: 



n address constants 



L 


R0,I 


L 


Rl, branch table 


L 


R2,m3 


L 


R3,m2 


BXLE 


R0,R2,0(R1) 



where variable is the Computed Go To vari- 
able, n is the number of branch points, and 
4n is the length of the list of n address 
constants. 



where the load from the branch table sets 
Rl to the address of the created label A. 
When this code has been completed, phase 4 
removes the bottom entry from the DO LOOPS 
OPEN roll. 
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STATEMENT FUNCTIONS 



The following code is generated at the 
beginning of each statement function: 



STM 


2,3,18(15) 


STM 


6,12,26(15) 


LR 


7,14 


LR 


9,1 


LR 


6,15 


B 


54(0,15) 



nine-word buffer 



B X(0,15> 

DC ALK length of Ident) 

DC CLn( Ident) 

STM 14,12,12(13) 

LM 2,3,32(15) 

L 15,28(0,15) 

B 20(0,15) 

DC (ADDRESS MAIN ENTRY) 

DC (ADDRESS PROLOGUE) 

DC (ADDRESS EPILOGUE) 



The save code for the ENTRYs to the 
subprogram is followed by a PROLOGUE, which 
transfers arguments to the subprogram, and 
an EPILOGUE, which returns arguments to the 
calling routine for the main entry to the 
subprogram and for each ENTRY to the 
subprogram. 



The buffer is followed by the code for 
the statement function itself, including 
the code to load the return value. The 
following code closes the statement 
function: 



LR 


14,7 


LM 


2,3,18(6) 


LM 


6,12,26(6) 


BR 


14 



The following code is produced 
RETURN statement: 



for the 



SR 

L 

ER 



15,15 
14,0(0, 13) 
14 



which branches to the appropriate EPILOGUE. 



The following code is produced for the 
RETURN I statement: 



SUBROUTINE AND FUNCTION SUBPROGRAMS 



L 


15,1 


SLL 


15,2 


L 


14,0(0, 13) 


BR 


14 



The following code is generated to save 
required information at the main entry to 
each SUBROUTINE and FUNCTION subprogram: 



B 


X(0,15) 


DC 


ALK length of Ident) 


DC 


CLn( Ident) 


STM 


14,12,12(13) 


LM 


2,3,40(15) 


LR 


4,13 


L 


13,36(0,15) 


ST 


13,8(0,4) 


STM 


3,4,0(13) 


BR 


2 


DC 


(ADDRESS SAVE AREA) 


DC 


(ADDRESS PRCLOGUE) 


DC 


(ADDRESS EPILOGUE) 



This code is followed by the following 
code for saving required information for 
each of the ENTRYs to the subprogram (the 
sequence of code appears once for each 
ENTRY, in the order of the ENTRYs): 



which also branches to the appropriate 
EPILOGUE. 

The PROLOGUE code generated for each 
entry point to the subprogram moves argu- 
ments as required and branches to the 
entry. The following code is generated to 
move each call by name argument: 

L 2,n(0,l) 

ST 2, global dmy 

where n is the argument number (the argu- 
ments for each entry point are numbered 
from one) multiplied by four. 

The following code is generated to move 
each call by value argument: 

L 2,n(0,l) 

MVC global dmy (x), 0(2) 

where n is the argument number multiplied 
by four, and x is the size of the dummy. 

Code to calculate dummy dimensions fol- 
lows the code to move arguments. 
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The following code is generated at the The EPILOGUE code generated for each 

close of all PROLOGUES: entry point to a subprogram moves arguments 

back to the calling routine and returns to 

BALR 2,0 it, as dictated by the RETURN or RETURN I 

L 3,6(0,2) statement. 
BR 3 
DC (ADDRESS OF CODE ENTRY POINT) 



Appendix Ds Object Code Produced by the Compiler 176.1 



Form Y28-6638-1 

Page Revised 11/15/68 by TNL Y28-6826 



The first instructions in each EPILOGUE 
are: 



FORMATTED READ AND WRITE STATEMENTS 



1,4(0,13) 
1,24(0,1) 



The code produced for these statements 



The following code is generated to 
return each call by value argument: 

L 2 # n(0,l) 

MVC 0(x r 2), global dmy 

where n is the argument number multiplied 
by four and x is the size of the dummy. 



For FUNCTION subprograms, the 
instruction is generated: 



following 



Lx 



0, entry name 



where x is the instruction mode. If the 
FUNCTION is complex, two load instructions 
are required. 

The following code is generated for the 
closing of each EPILOGUE: 



L 


13,4(0,13) 


L 


14,12(0,13) 


LM 


2,12,28(13) 


MVI 


12(13), 255 


BR 


14 



is: 

CNOP 

L 

BAL 

DC 

DC 

DC 

DC 

where : 



0,4 

15,=V(IBCOM#) 

14,N(15) 

XL0. U^PI* ,XL0.4'UI' ,AL3 (UNIT) 

AL1 (FI> , AL3 (FORMAT) 

AL4(EOFADD) "optional" 

AL4(ERRADD) "optional" 



PI - 



if neither EOF nor ERR 
specified 

1 if EOF only is specified 

2 if ERR only is specified 

3 if both EOF and ERR 
specified 



is 



are 



UI = 



if unit is an integer constant 

1 if unit is a variable name 

4 if unit is the standard system 
unit 



FI = X'00' if FORMAT is a statement 
label 
= X'01* if FORMAT is an array name 

N = for READ 
= 4 for WRITE 

UI = 4 is used for debug and for READ b, 
list, PRINT b, list and PUNCH b, list. 



INPUT/OUTPUT OPERATIONS 



The following paragraphs describe the 
code produced for the FORTRAN input/output 
statements. The generated instructions set 
up necessary parameters and branch into the 
IBCOMtt transfer table. This table has the 
following format: 

IBCOM# Main entry, formatted READ 
+4 Main entry, formatted WRITE 
+8 Second list item, formatted 
+12 Second list array, formatted 
+16 Final entry, end of I/O list 
+20 Main entry, unformatted READ 
+24 Main entry, unformatted WRITE 
+28 Second list item, unformatted 
+32 Second list array, unformatted 
+36 Final entry, end of I/O list 
+40 Backspace tape 
+44 Rewind tape 
+48 Write tapemark 
+52 STOP 
+56 PAUSE 

+60 IBERR execution error monitor 
+64 IBFINT interruption processor 
+68 IBEXIT job termination 



SECOND LIST ITEM, FORMATTED 



The code produced is: 

L 15,=V(IBCOM#) 
BAL 14,8(15) 

DC XLl'L 1 ,LX0. 4 , T , .XL0.4 , X' 
XLO^'B 1 ,XL1. 4" D« 



where: 



L = the size in bytes of the item 



T = 2 for a 
= 3 for a 
= 4 for a 
= 5 for a 
= 6 for a 
= 7 for a 
= 8 for a 

item 
= 9 for 

item 
= A for a 

compiler-generated) 



logical 1-byte item 
logical fullword item 
halfword integer item 
fullword integer item 
double-precision real item 
single-precision real item 
double-precision complex 

a single-precision complex 

literal item (not currently 
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X, B, and D are, respectively, the 
index, base, and displacement which 
specify the item address. 



SECOND LIST ARRAY, FORMATTED 

The code produced is: 

L 15,=V(IBCOM#) 

BAL 14,12(15) 

DC LX1 • SPAN' , AL3 (ADDRESS ) 

DC XL1 ' L ' , XLO . 4 ' T ' , XL2 . 4 ' ELEMENTS ' 

where : 

SPAN (not used) 



SECOND LIST ITEM, UNFORMATTED 



The code produced is: 

L 15,=V(IBCOM#) 
BAL 14,28(15) 

DC XLl'L* ,XL0.4'0» , XL0.4»X' , 
XLO. 4'B',XL1.4'D' 



where : 



L = the size in bytes of the item 

X, B and D are, respectively, the 
index, base, and displacement which 
specify the address of the item. 



ADDRESS = the beginning location of the 
array 

L = the size in bytes of the array 
element 

T = the values given for items 

ELEMENTS = the number of elements in the 
array 



FINAL LIST ENTRY, FORMATTED 



The code produced is: 

L 15, =V(IBCOM#) 
BAL 14,16(15) 



UNFORMATTED READ AND WRITE STATEMENTS 



SECOND LIST ARRAY, UNFORMATTED 



The code produced is: 

L 15,=V(IBC0M#) 

BAL 14,32(L) 

DC XL1 • SPAN' , AL3 ( ADDRESS ) 

DC XL1'L',AL3( ELEMENTS) 

where SPAN, ADDRESS, L, and ELEMENTS have 
the meanings described in second list 
array, formatted. 



FINAL LIST ENTRY, UNFORMATTED 



The code produced is: 

L 15,=V(IBCOM#) 
BAL 14,36(15) 



The code produced for these statements 



is: 



CNOP 

L 

BAL 

DC 

DC 

DC 



0, 4 

15,=V(IBCOM#) 

14,N(15) 

XLO. 4 'PI' ,XL0. 4'UI,AL3(UNIT) 

AL4(EOFADD) "optional" 

AL4 ( ERRADD ) " opt i ona 1 " 



where : 



PI, UI, UNIT, EOFADD and ERRADD have the 
same values as those given in the for- 
matted READ/WRITE definition. 

N = 20 for READ 
=24 for WRITE 



BACKSPACE, REWIND, AND WRITE TAPEMARK 



The code produced is: 



CNOP 


0,4 


L 


15,=V(IBCOM#) 


BAL 


14,N(15) 


DC 


XL1 ' FLAG" , AL3 ( UNIT ) 


where : 





FLAG = if unit is an integer 

= any other bit pattern if unit is 
a variable. 

N = 40 for BACKSPACE 
=44 for REWIND 
= 48 for write tapemark 
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STOP AND PAUSE STATEMENTS 



The code produced for these statements 



is: 



L 15,=V(IBC0M#) 

BAL 14,N(15) 

DC AL1 (LENGTH) 

DC C^EXT' 

where : 

LENGTH is the number of bytes in the 
'TEXT 1 message 

TEXT is an alphameric number or message 
(TEXT = • 40404040F0' if the STOP or 
PAUSE message is blank) . 

N = 52 for STOP 
=56 for PAUSE 

NAMELIST READ AND WRITE 



The following parameter list is also 
generated: 



DC 
DC 
DC 



DC 
DC 
DC 



X'a^ ,KL3(m ± ) 
C , f 1 ',AL3(r 1 ) 
X , 00 , ,AL3(v i ) 



X»a n » ,AL3(m n ) 
C , f n , ,AL3(r n ) 
X 1 80 1 ,AL3(v n ) 



The third DC in the group is changed to 

DC X'01',AL3(vi) 

if the associated variable is a half word 
variable. In the last group, it becomes 
X" 81 f ,AL3(v n ) in this case. 



The code produced is : * 



CNOP 

L 

BAL 

DC 

DC 

DC 

DC 

where : 



0,4 

15,=V(FWRNL#) 

14,0 (15) 

XL0.4 , PI , ,XL0.4 , UI , ,AL3(UNIT) 

AL4 (NAMELIST) 

AL4(EOFADD) 

AL4(ERRADD) 



PI, UI, and UNIT are as described for 
formatted READ and WRITE 

* The "L 15,=V(FWRNL#) n shown is for 
write; the code produced for read is 
"L 15,+V(FRDNL#) . " 



DEFINE FILE STATEMENT 



The form of the parameters specified in 
the statement is: 

a ± (m 1 ,f 1 ,r 1 ,v i ) , . . . . a n (m n ,f n# r n/ v n ) 

The following code is generated in the 
object module prologue: 



LA 


R 1# LIST 


L 


L,=V(DIOCS#) 


BALR 


R2# L 


where : 




R± = 


1 


L = 


15 


R 2 = 


14 



FIND STATEMENT 



The code produced is: 

CNOP , 4 

L 15,=V(IBCOM#) 

BAL 14,20(15) 

DC XL0.4 , PI , # XL0.4'UI , # AL3(UNIT) 

DC XLl'VI' ,AL3(r) 



PI = C 

UI = if the unit is a constant 

= 1 if the unit is a variable name 

VI = 00 if the record number is a 
constant 
= 01 if the record number is a vari- 
able name 

Note that 20 is the IBCOM entry point 
for an unformatted READ. 



DIRECT ACCESS READ AND WRITE STATEMENTS 



The code produced for these statements 



is: 



CNOP 0. 4 

L 15,=V(IBCOM#) 

BAL 14,N(15) 

DC XL0.4 , PI , ,XL0.4 , UI , AL3(UNIT) 

DC AL1 (FI) , AL3 (FORMAT) 

DC ALKVI),AL3(r) 

DC AL4(ERRADD) "may only appear for 
READ" 
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where : 



Internal Parentheses 



PI = 8 if ERR is not specified 

= A if ERR is specified, which is 
only possible for READ 

UI = if the unit is an integer 
constant 
= 1 if the unit is a variable name 

FI = 00 if the FORMAT is a statement 
label 
= 01 if the FORMAT is an array name 

VI = 00 if r (the record number) is a 
constant 
= 01 if r is a variable name 

The entry points which may appear (N) 
are 0, 4, 20, or 24. If 20 or 24 appears 
(indicating an unformatted operation), the 
second DC does not appear. 



FORMAT STATEMENTS 



Parentheses used to enclose groups of 
FORMAT specifications within the FORMAT 
statement are represented by the codes 04 
and 1C for the left and right parenthesis, 
respectively. The code for the left paren- 
thesis is always followed by the 1-byte 
value of the repetition count which pre- 
ceded the parenthesis in the source module 
statement. A value of one is inserted if 
no repetition count appeared. 



Repetition of Individual FORMAT 
Specifications 



Whenever the source module FORMAT state- 
ment contains a field specification of the 
form alw, aFw. d, aEw. d, aDw. d, or aAw, 
where the repetition count "a" is present, 
the hexadecimal code 06 is produced to 
indicate the field repetition. This code 
is followed by the 1-byte value of "a". 



FORMAT statements are stored after 
eral constants in the object module. 



lit- 



The FORMAT specifications are recoded 
from their source module form so that each 
unit of information in the FORMAT statement 
occupies one byte of storage. Each integer 
which appears in the FORMAT statement 
(i.e., a scale factor, field width, number 
of fractional digits, repetition count) is 
converted to a 1-byte binary value. Decim- 
al points used to separate field width from 
the number of fractional digits in the 
source module FORMAT statement are dropped; 
all other characters appearing in the 
source module statement are represented by 
1-byte hexadecimal codes. The following 
sections describe the encoding scheme which 
is used. 



I.F.E, and D FORMAT Codes 



The I and F FORMAT codes are represented 
by the hexadecimal values 10 and 0A, re- 
spectively. The I code is followed by the 
1-byte field width value; the F code is 
followed by two bytes, the first containing 
the field width (w) and the second contain- 
ing the number of fractional digits (d). 

E and D FORMAT codes are represented by 
the hexadecimal values 0C and 0E, respec- 
tively. This value is always followed by 
two bytes which represent the field width 
and the number of fractional digits, 
respectively. 



A FORMAT Code 



FORMAT Beginning and Ending Parentheses 



The beginning and ending parentheses of 
the FORMAT statement are represented by the 
hexadecimal codes 02 and 22, respectively. 



The A FORMAT code is represented by the 
hexadecimal value 14. This representation 
is always followed by the 1-byte value of 
w, the number of characters of data. 



Literal Data 



Slashes 



The slashes appearing in the FORMAT 
statement are represented by the hexadec- 
imal code IE. 



The H FORMAT code and the quotation 
marks used to enclose literal data are both 
represented by the hexadecimal value 1A. 
This code is followed by the character 
count (w in the case of the H specifica- 
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tion # the number of characters enclosed in 
quotation marks in the case of the use of 
quotation marks). The literal data follows 
the character count. 



X FORMAT Code 



DEBUG FACILITY 



The following paragraphs describe the 
code produced for the FORTRAN Debug Facili- 
ty statements. The generated instructions 
set up parameters and branch into the 
DEBUG# transfer table. The object-time 
routines which support the Debug Facility 
are described in Appendix E. 



The specification wX results in the 
production of the hexadecimal code 18 for 
the X; this is followed by the 1-byte value 
of w. 



DEBUG STATEMENT 



T FORMAT Code 



The T FORMAT code is represented by the 
value 12. The print position, w, is repre- 
sented by a 1-byte binary value. 



When the source module includes a DEBUG 
statement, debug calls are generated before 
and after each sequence of calls to IBCOM 
for source module input/output statements. 
Additional debug calls are generated to 
satisfy the options listed in the DEBUG 
statement. 



Scale Factor-P 



Beginning of Input/Output 



The P scale factor in the source module 
FORMAT statement is represented by the 
hexadecimal value 08. This code is fol- 
lowed by the value of the scale factor, if 
it was positive. If the scale factor was 
negative, 128-l is added to it before it is 
stored following the P representation. 



The following code appears before the 
first call to IBCOM for an input or output 
operation: 

L 15,=V(DEBUG#) 

CNOP , 4 

BAL 14,44(0,15) 



G FORMAT Code 



End of Input/Outp ut 



The G FORMAT Code is represented by the 
hexadecimal value 20. This value is always 
followed by two bytes which represent the 
field width and the number of significant 
digits, respectively. 



The following code appears after the 
last call to IBCOM for an input or output 
operation: 

L 15,=V(DEBUG#) 

CNOP 0, 4 

BAL 14,48(0,15) 



L FORMAT Code 



The L FORMAT code is represented by the 
hexadecimal value 16. This value is fol- 
lowed by the 1-byte field width. 



Z FORMAT Code 



UNIT Option 



When the DEBUG statement does not 
include the UNIT option, the object-time 
debug routine automatically writes debug 
output on SYSOUT. When UNIT is specified, 
the following code is generated at the 
beginning of the object module: 



The Z FORMAT code is represented by the 
hexadecimal value 24. This value is fol- 
lowed by the 1-byte field width. 



I. 15,=V(DEBUG#) 

CNOP 0, 4 

BAL 14,12(0,15) 

DC F'DSRN' 
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where DSRN is the data set reference number 
to be used for all subsequent debug output. 



TRACE Option 



When the TRACE option is specified in 
the source module DEBUG statement, the 
TRACE call is inserted immediately before 
the code for every labeled statement. The 
code is: 

L 15,=V(DEBUG#) 

CNOP 0,4 

BAL 14,0(0,15) 

DC F' LABEL 1 



the following 



where LABEL is the label of 
statement. 



SUBTRACE Option 



When the SUBTRACE option is listed in 
the source DEBUG statement, two sequences 
of code are produced: one at the entry to 
the object module, and one prior to each 
RETURN. 

SUBTRACE ENTRY: The debug call is made at 

the beginning of the object module. The 
call is: 

L 15,=V(DEBUG#) 

CNOP 0,4 

BAL 14,4(0,15) 

At the time of the call, register 13 
contains the address of the SAVE AREA, the 
fifth word of which contains the address of 
the subprogram identification. Bytes 6 
through 11 of the subprogram identification 
are the subprogram name. 

SUBT RACE RETURN: The debug call is made 
immediately before the RETURN statement. 
The call is: 

L 15,=V(DEBUG#) 

CNOP 0, 4 

BAL 14,8(0,15) 



subprogram call. Three calls may occur, 
depending on the type of variable (scalar 
or array) and the method of assignment. 

INIT SCALAR VARIABLE : The following code 
is produced after each assignment of value 
to a scalar 
option: 



variable covered by the INIT 



L 

CNOP 

BAL 

DC 

DC 



15,=V(DEBUG#) 
0,4 

14,16(0,15) 
CL6'NAME , ,C 



14,16(0,15) 

CL6 ' NAME " , CL2 ' • 

XL^L 1 ;XL0.4 , T I ,XL0.4'X» f XL0.4 , B t 



XL1. 4 , D I 



where : 



NAME is the name of the 
was set. 



variable which 



L is the length of the variable in 
bytes. 

T is the type code? for the variable: 

= 2 for a logical 1-byte item 

= 3 for a logical fullword item 

= 4 for a halfword integer item 

= 5 for a fullword integer item 

= 6 for a double-precision real item 

= 7 for a single-precision real item 

= 8 for a double-precision complex 

item 
= 9 for a single-precision complex 

item 
= A for a literal item (not currently 

compiler generated) 

X, B, and D are, respectively, the 
index, base, and displacement which loc- 
ate the item. 



INIT ARRAY ITEM: 



The 



following code is 
produced after each assignment of value to 
an array element: 



L 

CNOP 

BAL 

DC 

DC 

DC 

where : 



15,=V(DEBUG#) 

0,4 

14,20(0,15) 

CLe^AME' ,CL2» • 

XL1'L' # XL0. 4 , T , ,XL0. 4 , X* jXLO^'B', 

XL1. 4»D* 
XL1 • TAG • , AL3 (ADDRESS ) 



INIT Option 



When the INIT option is given in the 
source module DEBUG statement, a debug call 
is produced for every assignment to a 
variable, or to a listed variable if a list 
is provided. The call immediately follows 
each assignment, including those which 
occur as a result of a READ statement or a 



ADDRESS IS THE LOCATION OF THE FIRST 
array element if TAG = 0, or ADDRESS is a 
pointer to the location of the first 
array element if TAG * 0. 

NAME, L, T, X, B, and D are as described 
for a scalar variable. 

I NIT FULL ARRAY : The following code is 
produced when a full array is set by means 
of an input statement specifying the array 
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name or when the array name appears as an 
argument to a subprogram: 

L 15 f =V(DEBUG#) 

CNOP 0, 4 

BAL 14,24(0,15) 

DC CL6 , NAME , ,CL2« ' 

DC A (ADDRESS) 

DC XI/lVL'.XLO.U'T'jXI^. VOODOO 1 

DC A (ELEMENTS) 



where : 



ADDRESS is the location 
array element. 



of the first 



ELEMENTS is a pointer to a word contain- 
ing the number of elements in the array. 

NAME, L, and T are as described for a 
scalar variable. 



immediately preceded by the operation of 
the statements following the AT. As a 
result of the AT statement, an uncondi- 
tional branch to the location of the first 
statement following the AT is inserted 
before the first instruction generated for 
the statement labeled L. This branch pre- 
cedes any TRACE or SUBTRACE calls which may 
be written for statement L. 

The branch, like all branches performed 
in the object module, consists of a load 
from the branch table, followed by a BCR 
instruction. The branch table entry 
referred to is one constructed for a label 
which the compiler provides for the state- 
ment following the AT. 



TRACE ON STATEMENT 



SUBCHK Option 



A debug call is produced for each 
reference to an array element when the 
SUBCHK option appears without a list of 
array names; when the list is given, only 
references to the listed arrays produce 
debug calls. The debug call appears before 
the reference to the array, and is: 

L 15,=V(DEBUG#) 

CNOP 0,4 

BAL 14,28(0,15) 

DC CL6»NAME' ,CL2» ■ 

DC XL1* TAG ' ,AL3( ADDRESS) 

DC AL4( ELEMENTS) 



where : 



NAME is the array name. 

ADDRESS is the location of the first 
array element if TAG = 0, or ADDRESS is 
a pointer to the location of the first 
array element if TAG * 0. 

ELEMENTS is a pointer to a word contain- 
ing the number of elements in the array. 



AT STATEMENT 



The AT statement specifies the label, L, 
of a statement whose operation should be 



The debug call produced for the TRACE ON 
statement appears at the location of the 
TRACE ON statement itself; the call is: 

L 15,=V(DEBUG#) 

CNOP 0, 4 

BAL 14,32(0,15) 



TRACE OFF STATEMENT 



The debug call produced for the TRACE 
OFF statement appears at the location of 
the TRACE OFF statement itself; the call 
is: 

L 15,=V(DEBUG#) 

CNOP 0,4 

BAL 14,36(0,15) 



DISPLAY STATEMENT 



The code for the DISPLAY statement is: 



L 


15,=V(DEBUG#) 


CNOP 


0,4 


BAL 


14,40(0,15) 


DC 


A(NAMELIST) 


DC 


A(FWRNL#) 



where NAMELIST is the address of the NAME- 
LIST table generated from the DISPLAY list 
by the compiler. This code appears at the 
location of the DISPLAY statement itself. 
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APPENDIX E: MISCELLANEOUS REFERENCE DATA 



The information provided in this appen- 
dix has its primary use in connection with 
a listing of the compiler. The label lists 
indicate the chart on which a specific 
label can be found, or, for routines which 
are not flowcharted, they provide a 
description of the routine. 

PARSE LABEL LIST 



The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used in Parse. 



Routine Na me 

START COMPILER 

STATEMENT PROCESS 

PRINT AND READ SOURCE 

STA I NIT 

LBL FIELD XLATE 

STA XLATE 

STA FINAL 

ACTIVE END STA XLATE 

PROCESS POLISH 



SUPPLEMENTARY PARSE LABEL LIST 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Parse which are not shown in the section of 
flowcharts for the phase. 



Routine 

Label Name 

G0639 ASSIGNMENT 

VAR CHECK 





Chart 


Label 


ID 


G0630 


04 


G0631 


04 


G0837 


BA 


GP632 


BB 


G0635 


BC 


G0636 


BD 


G0633 


BE 


G0642 


BF 


G0844 


BG 



Routine 

Label N ame 

G0287 REASSIGN 

MEMORY 



Co m ments 

Obtains additional core 
storage, if possible, 
for a specific roll by 
pushing up the rolls 
that precede the re- 
questing roll in the 
block of storage. If 
this is not possible, 
it requests more core 
storage and, if none is 
available, enters PRESS 
MEMORY. 



G06 40 LITERAL 
TEST 



GO 6 41 END STA 
XLATE 



G0643 DO STA 
XLATE 



G0644 DO STA 
CONTROL 
XLATE 



G0645 DIMENSION 
STA XLATE 



GO 64 6 GOTO STA 
XLATE 



GO 647 CGOTO STA 



Comments 

Checks the mode of as- 
signment variable and 
the expression for con- 
flict in type speci- 
fication. 



Determines the statement 
type and transfers to 
the indicated statement 
processing routine. 



Determines the nature of 
the statement and 
transfers to the appro- 
priate translation rou- 
tine for non-END; 
translates END. 



Constructs the Polish 
notation for the DO 
statement. Locates the 
innermost DO statement 
in a nest of DO' s, and 
sets up extended range 
checking. 

Interprets the loop 
control specification 
in the DO statement and 
constructs the Polish 
notation for these 
controls. 

Determines the validity 
of the specifications 
in the DIMENSION state- 
ment and constructs 
roll entries. 

Determines the type of 
GO TO statement, and 
constructs the Polish 
notation for a GO TO 
statement. 

Constructs the Polish 
notation for a Computed 
GO TO statement. 



GO 6 37 ASSIGNMENT 
STA XLATE 



GO 6 38 ARITH FUN 
DEF STA 
XLATE 



Constructs the Polish 
notation for an assign- 
ment statement. 

Constructs the Polish 
notation for an arith- 
metic function defini- 
tion statement. 



G0648 ASSIGNED 
GOTO STA 
XLATE 

GO 6 49 ASSIGN STA 
XLATE 



Constructs the Polish 
notation for an As J 
signed GO TO statement. 

Controls the construc- 
tions of the Polish 
notation for an ASSIGN 
statement. 
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Routine 

Label Name 

G0650 IF STA 
XLATE 



Comments 
Constructs the 

notation for 

statement. 



Routine 

Label Name Comments 

Polish G0664 PACK H CODE Interprets the specifica- 
an IF tion for the H format 

code. 



G0651 LOGICAL IF 
STA XLATE 



G0652 IMPLICIT 
STA XLATE 



G0653 REGISTER 
RANGE 



GO 6 54 REGISTER 
IMPLICIT 
CHAR 



Constructs the Polish 
notation for a logical 
IF statement. 

Checks the IMPLICIT 
statement and controls 
the construction of the 
roll entries for the 
statement. 

Controls character en- 
tries for an IMPLICIT 
statement. 

Places the characters in 
the IMPLICIT statement 
on the IMPLICIT roll. 



G0665 PACK FORMAT Controls the registering 

QUOTE of the contents of a 

literal quote specified 

in a FORMAT statement. 



GO 66 6 REWIND STA 
XLATE 



GO 6 67 BACKSPACE 
STA XLATE 



G0668 END FILE 
STA XLATE 



Constructs the Polish 
notation for a REWIND 
statement. 

Constructs the Polish 
notation for a 
BACKSPACE statement. 

Constructs the Polish 
notation for an END 
FILE statement. 



G0655 SCAN FOR 
TYPE QT 
AND SIZE 



Determines the mode and 
size of the variables 
in specification state- 
ments. 



G0669 END FILE 
END 



Completes the Polish 

notation for input/ 

output control state- 
ments. 



G0656 CONTINUE 
STA XLATE 



GO 6 57 CALL STA 

XLATE 



GO 6 58 EXTERNAL 
STA XLATE 



G0659 FORMAT STA 
XLATE 



GO 6 60 FORMAT STA 
END 



Constructs the Polish 
notation for a continue 
statement. 

Constructs the Polish 
notation for a CALL 
statement. 

Validates the use of the 
EXTERNAL statement and 
constructs roll en- 
tries. 

Validates the use of the 
FORMAT statement and 
controls the construc- 
tion of the Polish 
notation for the state- 
ment. 

Builds the FORMAT roll 
from the information 
obtained from the proc- 
essing of the state- 
ment. 



G0670 BLOCK DATA 
STA XLATE 

GO 671 STOP STA 
XLATE 



G0672 STOP CODE 
ENTRY 



GO 67 3 PAUSE STA 

XLATE 



GO 67 4 PAUSE STOP 
COMMON 



GO 67 5 PAUSE STOP 
END 



Validates the use of the 
BLOCK DATA statement. 

Sets up the Polish nota- 
tion for the STOP 
statement. 

Sets up the Polish nota- 
tion for the STOP 
statement. 

Controls the interpreta- 
tion of the PAUSE 
statement. 

Checks the form of the 
specified statement and 
controls the construc- 
tion of the Polish 
notation for the 
statement. 

Registers the constructed 
Polish notation on the 
POLISH roll. 



G0661 FORMAT 

LIST SCAN 



G0662 FORMAT 

BASIC SCAN 



Checks the form of the 
literal content of the 
FORMAT statement. 

Interprets the FORMAT 
list and constructs the 
Polish notation for the 
list. 



G0676 INIT 

LITERAL 
FOR STOP 
PAUSE 

GO 677 NAMELIST 
STA XLATE 



Controls the interpreta- 
tion of the message 
specified in the PAUSE 
statement. 

Constructs the roll 
entries for the 
NAMELIST statement. 



G0663 ISCAN TEST 



Checks the size of the 
inteter constant or 
variable specified. 



GO 67 8 COMMON STA 
XLATE 



Constructs the roll 
entries for the COMMON 
specification. 
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Routine 
Labe l Name 
G0679 TEST ID 

ARRAY OR 

SCALAR 

GO 680 DOUBLE PRE 
STA XLATE 



Comments 

Validates the identifica- 
tion of the array or 
scalar used in COMMON. 

Checks the use of the 
DOUBLE PRECISION state- 
ment and controls the 
interpretation of the 
statement. 



Routine 
Label Name 
G0692 TEST ORDER 



G0693 DMY SEQ 
SCAN 



Comments 

Checks the order in which 
the SUBROUTINE or FUNC- 
TION statement appears 
in the source module. 

Checks the designation of 
the dummy variables for 
call by name or call by 
value. 



G0681 TYPE STA 
XLATE 



Interprets and constructs 
the roll entries for 
the type specification 
statement. 



G0694 GLOBAL DMY 
SCAN AND 
TEST 



Checks the identification 
of the global dummy for 
a possible conflict in 
definition. 



G0682 SCAN FOR 
SIZE 



G0683 TYPE 

SEARCH TEST 
AND REG 



Checks the size specifi- 
cation for the vari- 
ables in type state- 
ments. 

Checks the identification 
of the variables in the 
type specification 
in statement for pre- 
vious definition and 
defines if correct. 



G0695 DEFINE 

FILE STA 
XLATE 

G0696 DATA STA 
XLATE 



GO 6 97 DATA CONST 
XLATE 



Constructs the Polish 
notation for the DEFINE 
FILE statement. 

Constructs the Polish 
notation and roll 
entries for the DATA 
statement. 

Interprets the constants 
specified in the DATA 
statement. 



GO 684 ENTRY STA 
XLATE 



Constructs the Polish 
notation and roll 
entries for an ENTRY 
statement. 



G0698 INIT DATA 
VAR GROUP 



Determines and 
the number of 
specified in 
statement. 



sets up 
elements 
the DATA 



G0685 FUNCTION 
STA XLATE 

G0686 TYPED 

FUNCTION 
STA XLATE 

GO 687 FUNCTION 
ENTRY STA 
XLATE 
XLATE 



G0688 SUBROUTINE 
STA XLATE 

G0689 SUBROUTINE 
ENTRY STA 
XLATE 



These routines control 
the construction of the 
Polish notation for a 
FUNCTION subprogram by 
invoking the routines 
which interpret the 
contents of the state- 
ment. 



These routines control 
the construction of the 
Polish notation for a 
SUBROUTINE subprogram 
by invoking the routine 
which interprets the 
contents of the state- 
ment. 



G0699 DATA CONST Validates the specifica- 
ANALYSIS tion of the constants 
used in the DATA 
statement. 



G0700 DATA VAR 
TEST AND 
SIZE 



Checks the definition of 
the variables specified 
in the DATA statement 
for usage conflict, and 
registers the variables 
if no conflict is 
found. 



G0701 MOVE TO Moves information for 
TEMP DATA statement to TEMP 

POLISH ROLL POLISH roll from WORK 
roll. 



G0702 READ STA 
XLATE 



Checks the type of READ 
statement and controls 
the interpretation of 
the statement. 



GO 690 SUBPROGRAM 
END 



GO 6 91 SPROG NAME 
SCAN AND 
REG 



Common closing routine 
for ENTRY, FUNCTION, 
and SUBROUTINE state- 
ments . 

Checks the identification 
of the SUBROUTINE or 
FUNCTION subprogram for 
conflicts in defini- 
tion. 



G0704 READ WRITE 
STA XLATE 



G0705 END QT 
XLATE 



Interprets the elements 
of the READ or WRITE 
statement and con- 
structs the Polish 
notation for the 
statement. 



Constructs 
notation 
quote. 



the Polish 
for the END= 
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Routine 

Label Name 

G0706 ERR QT 

XLATE 



Comments 

Constructs the Polish 
notation for the ERR= 
quote in the READ 
statement. 



Routine 
Label Name 
G0723 STA XLATE 

EXIT 



Comments 

Replaces the Polish nota- 
tion for a statement 
with error linkage if 
indicated. 



G0707 REGISTER 
IBCOM 

G0708 REGISTER 

ERROR LINK 



G0709 READ B STA 

XLATE 
G0710 PUNCH STA 

XLATE 
G0711 PRINT STA 

XLATE 

G0712 F2 IO 
XLATE 



Inserts a roll entry 
a call to IBCOM. 



for 



G0713 IOL LIST 
XLATE 



G0714 FIND STA 
XLATE 



GO 71 5 RETURN STA 
XLATE 



Sets the roll entry for 
the generation of error 
linkage. 

Initialize for the con- 
struction of the Polish 
notation for the in- 
dicated statement. 



Constructs the Polish 
notation for the in- 
dicated input/output 
statement and inter- 
prets FORMAT designa- 
tions associated with 
the input/output state- 
ment. 

Interprets and constructs 
the Polish notation for 
the list associated 
with the indicated 
input/output statement. 

Constructs the Polish 
notation for the FIND 
statement. 

Constructs the Polish 
notation for the RETURN 
statement. 



G0716 EQUIVALENCE Constructs the roll en- 
STA XLATE tries for the EQUIVA- 
LENCE statement 



G0717 DIMENSION 
SEQ 
XLATE 



GO 71 8 TEMP MAKER 



Constructs the roll en- 
tries for the dimen- 
sions designated for an 
array. 



Increments 
temporary 
used for 
sions. 



pointer for 

locations 

dummy dimen- 



G0719 SPECIFI- 
CATION 
STA EXIT 
GO 720 JUMP END 
G0721 ACTIVE END 
G0722 HEAD STA 
EXIT 



Set flags and return. 



G0724 ILLEGAL 

STA FAIL 
G0725 ORDER FAIL 
G0726 ALLOCATION 

FAIL 
G0727 ILLEGAL 

NUMBER 

FAIL 
G0728 SUBSCRIPT 

FAIL 
G0729 ID CONFLICT 

FAIL 
G0730 TYPE 

CONFLICT 

FAIL 



These routines set up 
diagnostic messages for 
the type of error indi- 
cated by the routine 
name. 



G0731 VAR SCAN 



Checks definition of 
variables in the source 
module; defines as 
scalar if undefined. 



G0732 ARRAY SCAN Constructs the Polish 

notation and roll 
entries for array re- 
ferences. 



G0733 SUBSCRIPT 
ANALYSIS 



Determines the nature of 
an array reference for 
purposes of subscript 
optimization. 



G0734 SCRIPT ITEM Determines whether a 

ANALYSIS subscript expression is 

a linear function of a 

DO variable, and sets 

ANSWER BOX. 



G0735 NOTE LINEAR Registers a linear sub- 
SCRIPT script expression on 
SCRIPT roll. 



G0736 RESTORE 

NONLINEAR 
SCRIPT 



G0737 MOVE ON 

EXIT FALSE 



G0738 SCRIPT 
SCALAR 
ANALYSIS 



Builds the Polish nota- 
tion for a nonlinear 
subscript expression on 
Polish roll. 

Moves one group from WORK 
roll to POLISH roll, 
sets ANSWER BOX to 
false, and returns. 



Determines whether a 
scalar used in a sub- 
script is a DO variable 
and sets ANSWER BOX. 
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Routine 
Label Name 
G0739 SCRIPT 
CONST 
ANALYSIS 



G07U0 DEFINE 
SCRIPT 
GROUP 

G0741 REGISTER 
SCRIPT 
GROUP 



G0744 TERM SCAN 



G0745 ELEMENT OP 
SEQ SCAN 



G074 6 UNAPPENDED 
SPROG ARG 



G0747 FUNCTION 
ELEMENT 



G0748 CONST 

ELEMENT 



G074 9 SCALAR 
ELEMENT 

G0750 ELEMENT 
MOVE 



GO 7 51 OP SCAN 
CHECK 
DEPOSIT 



Comments 

Separates constant used 
in a subscript expres- 
sion as either induc- 
tion variable coeffi- 
cient or additive 
constant. 



Creates new group con- 
taining zeros on the 
SCRIPT roll. 

Defines a subscript ex- 
pression on the SCRIPT 
roll by setting the 
traits, displacement, 
and array reference. 

Initializes the construc- 
tion of Polish notation 
for a new term in an 
expression. 

Constructs the Polish 
notation for a term in 
an arithmetic ex- 
pression. 

Exits from expression 
scanning on finding an 
array or subprogram 
name not followed by a 
left parenthesis; en- 
sures reference is 
correct. 

Determines whether a 
function call in an 
expression is to a 
statement function, a 
library function, or a 
global subprogram; 
calls SPROG ARG SEQ 
SCAN to scan arguments. 

Scanning expression, if 
compiler finds non- 
letter, non-left paren- 
thesis, it goes here; 
determines if really a 
constant. 

Ensures that scalar is 
registered. 

Moves pointer to POLISH 
roll for any element in 
expression. 

Determines the operation 
indicated in an expres- 
sion, sets up the 
appropriate driver, and 
falls through to OP 
CHECK AND DEPOSIT. 



Routine 
Label Name 
G0752 OP CHECK 

AND DEPOSIT 



Comments 

The current and previous 
operations are set up 
according to a prece- 
dence, and a Polish 
notation is con- 
structed. 



G0753 GEN AND REG Determines the nature of 

EXPON SPROG an exponentiation, and 

records the required 

subprogram on the 

GLOBAL SPROG roll. 

G0754 REG COMPLEX Determines the nature of 
SPROG an operation involving 
complex variables* and 
registers the appropri- 
ate routine on the 
GLOBAL SPROG roll. 

G0755 A MODE PICK Checks and sets mode of 
AND CHECK operator by inspecting 
the first of a pair of 
operands. 

G0756 MODE PICK Actually places mode 

field in driver. 

G0757 B MODE PICK With second operand and 
AND CHECK driver set by A MODE 
PICK AND CHECK, resets 
driver mode; if complex 
raised to a power, 
ensures power is 
integer. 



G0758 MODE CHECK 



Determines whether modes 
of operands are valid 
in relational and log- 
ical operations. 



G0759 NUMERIC EXP Determines that an opera- 

CHECK tion or an expression 

is numeric, as opposed 

to logical, for 

compatibility. 

G0760 NUMERIC EXP Uses NUMERIC EXP CHECK, 
qHECK AND then prunes bottom of 
PRUNE POLISH roll. 

G0761 SPROG ARG Constructs the Polish 
SEQ SCAN notation for the argu- 
ment list designated 
for a subprogram. 



G0762 ARG TEST 
AND PRUNE 



G0763 TEST FOR 
ALTERABLE 



Tests the number and type 
of arguments to library 
routine; moves label 
arguments to CALL LBL 
roll. 

Determines whether a 
scalar has been passed 
as a subprogram 
argument. 
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Routine 

Labe l Name 

G0764 ID SCAN 

NO USE 



Comments 

Sets a flag tested in 
MODE SET so that low- 
order bits of roll are 
not altered when vari- 
able is defined; state- 
ment does not use 
variable. 



Routine 
Label Name 
G0776 REGISTER 

FX CONST 



G0777 CONST 

ANALYSIS 



Comments 

Records new integer con- 
stant if not previosuly 
defined. 

Determines the type of a 
constant and jumps to 
proper conversion rou- 
tine. 



G0765 ID CLASSIFY Goes to ID CLASSIFY after 
NO USE setting flag to indi- 
cate variable has not 
been used and mode 
should not be set. 



G0766 ID SCAN 



Compiles name from source 
in central area and 
goes to ID CLASSIFY. 



G0767 ID CLASSIFY Determines the classifi- 
cation of a name — 
scalar, array, subpro- 
gram, etc. , and leaves 
pointer in WO; exits 
false if name not 
defined. 



G0768 REGISTER 
SCALAR 

G0769 REGISTER 
GLOBAL 
SPROG 
REGISTER 
RUNTIME GS 

G0770 REGISTER 
GLOBAL 
SPROG ROLL 

GO 7 71 MODE SET 



G0772 CONST SCAN 



G0773 REGISTER 
COMPLEX 
CONST 



G077U REGISTER 
FL CONST 



G0775 REGISTER 

WORK CONST 



Records new 
SCALAR roll. 



name 



on 



Determines if name is 
already a defined sub- 
program; if not re- 
cords it on GLOBAL 
SPROG roll. 

Records name on GLOBAL 
SPROG roll. 



Determines the mode of 
the indicated variable, 
logical, integer, com- 
plex, etc. , and inserts 
code in pointer in WO. 



Controls the translation 
and recording of 
constants. 

Records complex and 
double-precision com- 
plex constants not pre- 
viously defined on 
appropriate roll. 

Records single- and 
double- precis ion real 
constants on appropri- 
ate roll when not pre- 
viously defined. 

Records constant in WO as 
new integer constant if 
not defined. 



G0778 CPLX CONST 
ANALYSIS 

G0779 CHECK CONST 
SIGN 

G0780 SCAN CONST 
SIGN 



G0782 HEXADECIMAL 
CONST SCAN 



Converts a 
constant. 



complex 



Checks for unary minus 
sign on constant. 

Scans first character of 
a constant for a sign; 
sets up driver if unary 
minus. 



Converts a 
constant. 



hexadecimal 



G0783 



G0784 



G0785 



REGISTER 
HEX CONST 



LBL ARG 
SCAN 



SCAN 

HOLLERITH 

ARGUMENT 



G0786 LITERAL 

CONST SCAN 



G0787 LITERAL 

CONST SCAN 
PAUSE 

G0788 REGISTER 
LITERAL 
CONST 



G0789 INIT PACK 
LITERAL 



G0790 PACK 

LITERAL 
COMPLETE 

G0791 PACK 

LITERAL 
CONST 

G0792 LOOK FOR 
ONE QUOTE 



Records new c onstant on 
HEX CONST roll if not 
previously defined. 

Checks validity of a 
label argument to a 
subprogram and records 
label as jump target. 

Scans an IBM card code 
argument to a sub- 
program, and records as 
literal constant. 

Distinguishes literal 
constants from logical; 
converts and records. 

Packs a literal constant. 



Records literal constant 
on LITERAL CONST roll 
if not previously de- 
fined. 



Initializes 
sion of 
constant. 



for 
a 



conver- 
literal 



Moves literal constant 
onto TEMP LITERAL roll 
if packed. 

Converts a literal con- 
stant from source 
input. 

Checks for a quotation 
mark not followed by a 
second quotation mark; 
sets ANSWER BOX. 
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Routine 
Label Name 
G0793 PACK TWO 

FROM WORK 
G0794 PACK ONE 

FROM WORK 



Comments 

Packs low-order byte from 
last one or two groups 
on WORK roll onto 
LITERAL TEMP roll. 



G0795 PACK CRRNT Packs current character 
CHAR onto LITERAL TEMP roll. 



G0796 PACK CHAR 



General routine to actu- 
ally place a byte in a 
word which, when com- 
plete, is placed on the 
LITERAL TEMP roll. 



G0797 SYMBOL SCAN Assembles identifier from 

input in SYMBOL 1, 2, 
and 3, and returns. 

G0798 LOGICAL Scans logical constants 
CONST SCAN from source input and 
records as integers. 



G0799 JUMP LBL 
SCAN AND 
MOVE 



Scans label, defines it 
as jump target and 
pointer on POLISH roll. 
Locates transfers from 
innermost DO loops that 
are possible extended 
range candidates. Also 
checks for possible 
re-entry points into 
innermost DO loops, and 
tags such points. 



G0800 FORMAT LBL Scans a label, registers 

SCAN it if necessary, and 

ensures that it is a 

FORMAT label if already 

defined. 



Routine 

Labe l Name 

G080 6 NEXT 

CLOSING 
SLASH 



GO 8 07 NEXT ZERO 

COMMA SLASH 
OR CRP 



G0808 NEXT ZERO 
R PAREN 



GO 8 09 COMMA TEST 



G0810 INTEGER 
TERM 

SCAN AND 
MOVE 



Comments 

Scans source input until 
second of the next pair 
of slashes not enclosed 
in parentheses. 

Scans source input until 
next comma or slash not 
enclosed in parentheses 
or a closing right 
parenthesis. 

Scans source input until 
next zero level right 
parenthesis. 

Advances scan arrow and 
returns ANSWER BOX true 
if next active charac- 
ter is a comma; if it 
is a letter, sets up 
missing comma message, 
does not advance, and 
returns true; if it is 
neither, returns false. 

Scans integer constant or 
variable, defines on 
appropriate roll, puts 
pointer on POLISH roll. 



GO 8 11 INTEGER Scans integer constant; 

CONST SCAN defines on FX CONST 

AND MOVE roll if required; puts 

pointer on POLISH roll. 

G0812 INTEGER VAR Scans integer variable; 
SCAN AND defines on roll if re- 
MOVE quired; puts pointer on 

POLISH roll. 



G0801 FORMAT LBL 
TEST 



Tests that pointer in WO 
indicates format label 
(vs. jump target 
label); if not, there 
is an error. 



GO 81 3 INTEGER 
TEST 



Determines whether a 
pointed to variable or 
constant is an integer. 



G0802 LBL SCAN 



G0803 REGISTER 
LBL 



G0804 NEXT ZERO 

LEVEL COMMA 

NEXT ZERO 

COMMA 

OR R PAREN 

G0805 NEXT ZERO 
COMMA 
OR CS 



Scans referenced label, 
defines on LBL roll if 
required, produces er- 
ror messages, leaves 
pointer in WO. 

Records label on LBL roll 
if not previously 
defined; leaves pointer 
in WO. 

Scans source input to 
next comma not in 
parentheses or to close 
off a pair of paren- 
theses. 

Scans source input until 
next comma or slash 
not in parentheses. 



G0814 SIGNED 
INTEGER 
SCAN 



GO 81 5 INTEGER 
SCAN 



G0816 DP CONST 
MAKER 



GO 8 17 DP ADJUST 
CONST 



Scans and converts signed 
integer constant; de- 
fines on FX CONST roll 
if required. 



Scans and converts an 
unsigned integer con- 
stant and register on 
FX CONST roll if 
required. 

Builds a double-precision 
constant from source 
input. 

Used in converting float- 
ing point numbers ; 
adjusts for E or D 
field. 
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Routine 

Label Nam e 

GO 8 18 CONVERT TO 

FLOAT 

G0820 CLEAR TWO 

AND EXIT 

TRUE 
GO 8 21 CLEAR ONE 

AND EXIT 

TRUE 



G0823 EXIT TRUE 
EXIT TRUE 
ML 

G082U CLEAR ONE 
AND EXIT 
FALSE 



G0825 EXIT FALSE 



Comments 

Converts integer constant 
to floating point. 

Remove the specified num- 
ber of groups from the 
WORK roll, set ANSWER 
BOX to true, and re- 
turn. 



Sets ANSWER BOX to true 
and returns. 



Removes one group from 
WORK roll, sets ANSWER 
BOX to true, and 
returns. 

Sets ANSWER BOX to false 
and returns. 

Remove specified number 
of groups from WORK 
roll and return. 



G08 26 CLEAR TWO 

AND EXIT 
G0827 CLEAR ONE 

AND EXIT 

G0829 EXIT Returns. 
EXIT ML 
EXIT ON ROLL 

G0832 SYNTAX FAIL Records syntax error mes- 
ML sage and goes to FAIL. 

ILLEGAL 
SYNTAX FAIL 
SYNTAX FAIL 



G0833 FAIL 



If JPE flag off, restores 
WORK and EXIT roll 
addresses from last 
status control, house- 
keeps Polish notation 
through STA XLATE EXIT, 
and returns with ANSWER 
BOX set to false; if 
the flag is on, values 
are restored for JPE 
and exit is to the 
location following last 
JPE POP instruction. 



Routine 

Label Name 

GO 8 39 TEST FOR 
ERROR 
MESSAGE 



G08U0 PRINT 

MESSAGES 

G0841 TEST AND 

ZERO PRINT 
BUFFER 

G0842 INIT READ 
A CARD 



G0843 READ A 
CARD 



G0845 SKIP TO 

NEXT CHAR 
MASK 



Comments 

Determines whether error 
messages are to be 
printed; if so, prints 
dollar sign markers. 

Prints line of error 
messages. 

Clears output area for 
printer. 



Scans source input for 
assignment statement 
(flag 1) or Logical IF 
with assignment for 
consequence (flag 2). 

Puts card onto SOURCE 
roll and re-enters INIT 
READ A CARD at proper 
point. 

Scans input to next 
source character not of 
a class of characters 
specified as input to 
routine. 



G08 46 REENTRY Entry point used to con- 
SKIP TO NEXT tinue masking operation 
CHAR MASK on a new card. 



GO 8 47 NEXT CHAR 

NEXT 

CHARACTER 
G0848 NEXT CHAR 

ML 

NEXT CHARACTER 

ML 



Advance scan 
next active 



arrow to 
character. 



G0849 BCD TO 
EBCDIC 

G0850 DIGIT CONV 
INITIAL 



GO 8 51 MAPT1 TO 
TMP1 



G0834 STATUS 
CONTROL 



Saves 
and 



addresses of WORK 
EXIT roll bottoms. 



Converts CRRNT CHAR from 
BCD to EBCDIC. 

Initializes for the con- 
version of a number 
from decimal to binary 
(resets digit counts, 
clears DATA area, etc. ) 

Converts value in format 
of TOP or BOTTOM, a 
virtual address, to a 
true address. 



G0835 DIGIT CONV Converts integer from 
SCAN decimal to binary, and 

leaves in DATA area. 



G0836 CONV ONE 
DIGIT 



G0838 PRINT A 
CARD 



Converts decimal digit to 
binary, and lea 
DATA area. 



Controls printing 
source listing 
error messages. 



G10 34 BUILD LOOP 
DATA GROUP 





G1035 


DATA TERM 


. to 




ANALYSIS 


: in 








G1037 


CONST 


of 




REGISTER 


and 




EXIT 



Constructs group 
DATA roll. 



on LOOP 



Checks for and sets flag 
if it finds unary minus 
in DATA statement. 

Common exit routine for 
constant recording rou- 
tines; leaves pointer 
to constant in WO. 
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Routine 






Chart 


Label 


Name 


Comments 


Label 


ID_ 


G1038 


T AND F 


Scans for logical con- 


G0376 


CH 




CONST SCAN 


stants T and F in DATA 
statements. 


G0377 
G0381 


CI 
CK 


G1039 


EXIT ANSWER 


General routine used by 










all EXITs which set 


G0437 


CL 






ANSWER BOX to store 










value in ANSWER BOX and 


G0397 


CM 






return. 


G0401 
G0402 


CN 
CO 


G1040 


DEBUG STA 


Translates DEBUG state- 








XLATE 


ment. 


G0442 
G0443 


CP 
CQ 


G10U1 


AT STA 


Constructs AT roll entry 


G0444 


CR 




XLATE 


from AT statement. 


G0445 
G0441 


CS 

CT 


G1042 


TRACE STA 


Constructs Polish nota- 


G0403 


CU 




XLATE 


tion for TRACE state- 


G0405 


CV 






ment. 


G0438 
G0545 


CW 
CX 



R outine N ame 

ENTRY NAME ALLOCATION 

COMMON ALLOCATION AND 

OUTPUT 

EQUIV ALLOCATION PRINT 

ERRORS 

BASE AND BRANCH TABLE 

ALLOC 

SCALAR ALLOCATE 

ARRAY ALLOCATE 

PASS 1 GLOBAL SPROG 

ALLOCATE 

SPROG ARG ALLOCATION 

PREP NAME LI ST 

LITERAL CONST ALLOCATION 

FORMAT ALLOCATION 

EQUIV MAP 

GLOBAL SPROG ALLOCATE 

BUILD NAMELIST TABLE 

BUILD ADDITIONAL BASES 

DEBUG ALLOCATE 



G1043 DISPLAY STA Constructs Polish nota- 

XLATE tion and roll entries 

for DISPLAY statement. 



SUPPLEMENTARY ALLOCATE LABEL LIST 



G104U IEYSKP 
SKIP TO 
NEXT 
PROGRAM 

G1070 PRESS 
MEMORY 



Calls IEYFORT to skip to 
end of present source 
module when roll stor- 
age is exhausted. 

Called by REASSIGN MEMORY 
to obtain additional 
core storage from roll 
space that is no longer 
in use. If it obtains 
32 or more bytes, exit 
is back to REASSIGN 
MEMORY. Otherwise, 
exit is to IEYNOCR in 
IEYFORT to print NO 
CORE AVAILABLE message. 



ALLOCATE LABEL LIST 



The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used by Allocate. 



Labe l 
G0359 
G0451 



G0362 




CB 



G0361 


CC 


G0365 


CD 


G0371 


CE 


G0372 


CF 



G0374 



CG 



Routine Name 

START ALLOCATION 

ALPHA LBL AND L SPROGS 

ALPHA SCALAR ARRAY AND 

SPROG 

PREP EQUIV AND PRINT 

ERRORS 

BLOCK DATA PROG ALLOCATION 

PREP DMY DIM AND PRINT 

ERRORS 

PROCESS DO LOOPS 

PROCESS LBL AND LOCAL 

SPROGS 

BUILD PROGRAM ESD 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Allocate which are not shown in the section 
of flowcharts for the phase. 



Routine 
Label Name 
G0363 PREPROCESS 

EQUIV 



G0364 REGISTER 
ERRORS 
SYMBOL 



G0366 CHECK DMY 
DIMENSION 



G0367 GLOBAL DMY 
TEST 



G0368 DMY DIM 
TEST AND 
REG 



Comments 

Checks the data contained 
on the EQUIVALENCE roll 
and computes the 
required addresses. 

Checks the ERROR SYMBOL 
roll for the presence 
of the error just 
detected. All dupli- 
cate entries are pruned 
from the roll and all 
new entries placed on 
the roll. 

The dummy dimension is 
checked for definition 
as a global dummy vari- 
able, or in COMMON. 



Sets a 
dummy 
ENTRY 
to the 



pointer to the 

array on the 

roll; a pointer 

ARRAY roll is 



also set for each dummy 
array. 

The DMY DIMENSION roll is 
rebuilt with the infor- 
mation obtained from 
the COMMON DATA TEMP, 
TEMP, and GLOBAL DMY 
rolls. 
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Routine 

Label Name 

GO 369 DMY DIM 

TEST 



G0370 DMY 

CLASSIFY 



G0373 REGISTER 
BRANCH 
TABLE 

GO 37 5 PUNCH 

REMAINING 
ESD BUFFER 
PUNCH 
REMAINING 
CARD 

GO 378 SEARCH 
ROLL BY 
MAGNITUDE 



G0379 PRINT 
COMMON 
ERRORS 

G0380 PRINT 
COMMON 
HEADING 

G0382 EQUIV 

ALLOCATION 



GO 38 3 FLP AND 
PROCESS 
EQUIV 

GO 38 4 PROCESS 
EQUIV 



GO 38 5 INTEGRATE 



Comments 

The dimension data is 
checked for having been 
previously defined on 
the NAMELIST ITEMS and 
COMMON DATA rolls. 

Classifies a dummy, de- 
fining it as scalar if 
undefined; if it is an 
array sets call by name 
tag. 

Places work containing 
zero on the BRANCH 
TABLE roll. 

Punches a card. 



Routine 

Label Name 

G0386 TEST FOR 

BOUNDARY 



The GENERAL ALLOCATION 
roll is searched to 
check if the largest 
equivalenced area has 
been allocated. 

Sets up for, and prints, 
COMMON allocation er- 
rors. 

COMMON storage map head- 
ing is printed. 



Builds the EQUIV 
ALLOCATION roll from 
the boundary calcu- 
lated; records the 
absolute address as- 
signed to the vari- 
ables. 

Inverts the contents of 
the EQUIVALENCE roll. 



Constructs complete 
EQUIVALENCE sets on the 
the GENERAL ALLOCATION 
roll using information 
on the EQUIVALENCE 
roll. 

Assigns locations rela- 
tive to the first vari- 
able listed for all 
variables in an EQUIVA- 
LENCE set if not al- 
ready allocated. 



Comments 

Sets and checks the 
smallest equivalenced 
area and highest bound- 
ary required for allo- 
cation of the variables 
indicated; resets pro- 
gram break according to 
requirement. 



G0387 CSECT EQUIV Controls the allocation 

ALLOCATION of EQUIVALENCE sets 

equal to or greater 

than 3K bytes into a 

new control section. 

G0388 PRINT CSECT Sets up and formats the 
EQUIV MAP printing of the storage 
map for EQUIVALENCE 
sets equal to or great- 
er than 3K bytes. 



G0389 BUILD 
COMMON 
ALL ROLL 



G0391 SEARCH FOR 
LARGE 
ARRAYS 



G0392 BUILD A 

NEW CSECT 



G0393 PRINT A 
ARRAY 
CSECT MAP 



G0394 CONV TEMP3 
TO HEX 



G0395 GLOBAL DMY 
ALLOCATE 



G0396 TEST FOR 
CALL BY 
NAME 



Calculates the base and 
displacement for EQUIV- 
ALENCE sets equal to or 
greater than 3K bytes 
and registers these 
sets on the COMMON 
ALLOCATION roll. 

Determines the size of 
arrays not defined as 
EQUIVALENCE or COMMON. 
Obtains the arrays that 
are equal to or greater 
than 3K bytes. 

Sets the program name and 
obtains a new control 
section for the alloca- 
tion of arrays and 
EQUIVALENCE sets. 

Sets the information for 
the printing of the map 
for arrays equal to or 
greater than 3K bytes. 

Converts the contents of 
the temporary register 
to hexadecimal. 

Assigns storage for glob- 
al dummy variables; 
expands the contents of 
the BASE TABLE roll, as 
required. 

Determines whether the 

indicated variable was 

called by name or 
called by value. 
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Routine 
Label Name 

GO 39 8 ALLOCATE 
SCALAR 
BOUNDARY 



G0399 ALLOCATE 
SCALAR 



Co m ments 

Sets up allocation of 
scalars according to 
the size of the 
variable. 

Formats the allocation of 
scalars not defined as 
global dummies in COM- 
MON or in EQUIVALENCE 
sets. Initializes for 
the printing of the 
scalar map and calcu- 
lates the base and 
displacement. 

Determines if the vari- 
able is defined as a 
global dummy, in COMMON 
or in an EQUIVALENCE 
set. If it is, it sets 
the ANSWER BOX = true. 

Sets the type of the ESD 
cards that are to be 
punched and initializes 
for the allocation of 
subprogram addresses. 



G040 6 ADJUST AND Sets the format for the 
OUTPUT NAME punching of the 
NAMELIST name, and 
adjusts for storage. 



G0400 CED SEARCH 



GO 4 04 ALLOCATE 
SPROG 



GO 407 PUNCH NAME 
LIST AND 
FIELD 



Sets the format for the 
punching of the address 
allocated for each 
NAMELIST according to 
storage required. 



GO 408 OUTPUT MODE Sets the format for the 

WORD punching of the mode of 

the NAMELIST variable. 



GO 40 9 ADVANCE 

PROG BREAK 
AND PUNCH 



Increases the item PRO- 
GRAM BREAK according to 
the storage allocation 
required for the 
variables indicated. 



Routine 

Label Name 

G0413 PUNCH 

REMAINING 
TXT CARD 



GO 41 4 PUNCH ESD 
G0415 PUNCH LD 
ESD 



Comments 

Punches the remaining 
card indicated, after 
the area from which 
data was being taken 
has been punched. 

Punches the indicated ESD 
cards for the program 
area indicated. 



G0416 PRINT ERROR Prints the contents of 
LBL ROLL this roll which con- 
tains the errors noted 
during operation. 

GO 417 CONVERT LBL Converts the label of an 

erroneous statement to 
BCD for printing. 

G0418 PRINT ERROR Prints the contents of 
SYMBOL the ERROR SYMBOL roll. 



G0420 PRINT 

SCALAR OR 
ARRAY MAP 

G0421 PRINT INIT 

MAP 
G0422 TEST AND 

PRINT MAP 



G0423 PRINT MAP 
HEADING 



G0424 PRINT 

FORMAT MAP 

G0425 PRINT 

HEADING 
MESSAGE 

G0426 PRINT MAP 
PRINT MAP 
ML 



Prints the indicated map. 



Checks the existence of 
processing of a storage 
map. Initiates the 
printing of the indi- 
cated map if one is not 
already being printed. 

Prints the heading of the 
indicated storage map 
for the variables 
designated. 



Prints map 
statements. 



Of FORMAT 



Prints the heading in- 
dicated for error 
messages. 

Prints the variables as- 
sociated with the stor- 
age map heading from 
the rolls indicated. 



GO 410 PUNCH 

LITERAL 



G0411 MOVE TO 

PUNCH BUFF 



G0412 PUNCH TXT 
CARD 



Obtains the number of 
bytes and the address 
of the roll indicated 
for punching of literal 
constants. 

Moves the indicated data 
to the appropriate 
punch buffer. 

Punches the indicated 
TXT card after setting 
up the address and 
buffer information. 



G0431 PRINT 

REMAINING 

BUFFER 
G0432 PRINT ERROR 

REMAINING 

BUFFER 

G0433 ALLOCATE 
FULL WORD 
MEMORY 

G0434 ALLOCATE 

MEMORY 
G04 35 ALLOCATE 

BY TYPE 



Print the remaining in- 
formation in the print 
buffer after the data 
has been obtained from 
the indicated storage 
area. 

Initializes for the 
allocation of a full 
word of storage. 

Allocate storage accord- 
ing to the type of the 
variable indicated; 
fullword, half word, or 
byte. 
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Routine 

Label Name 

G0436 CALCULATE 
SIZE AND 
BOUNDARY 



G0439 CALCULATE 
BASE AND 
DISP 



G0440 REGISTER 
BASE 

GO 44 6 BUILD 

FORMATS 



GO 4 4 7 INCREMENT 
PNTR 



Comments 

Determines the size and 
the boundary required 
for the variable indi- 
cated. 

Determines the base table 
entry and displacement 
for variable being 
allocated, constructing 
a new base table entry 
if necessary. 



Constructs a new 
TABLE roll group. 



BASE 



The base and displacement 
for FORMAT statements 
are calculated and the 
PROGRAM BREAK increased 
as required. 

Increases the address 
field of the pointer to 
the indicated roll so 
that the pointer points 
to the next group on 
the roll. 



G0448 ID CLASSIFY Variables are checked for 

a previous classifica- 
tion as a global dummy, 
a scalar, an array, 
global sprog, used 
library function, or a 
local sprog. 



GO 44 9 REGISTER 
SCALAR 



GO 4 50 MODE SET 



Builds new group onto the 
SCALAR roll. 



Sets the mode of the 

variable to fixed or 

floating, explicit or 

implicit, or not used. 



GO 455 CLEAR THREE Prunes three groups from 
AND EXIT the WORK roll, and 
TRUE exits with a true ans- 

wer in ANSWER BOX. 



GO 4 56 CLEAR TWO 
AND EXIT 
TRUE 



GO 4 57 CLEAR ONE 
AND EXIT 
TRUE 



G0458 EXIT TRUE 
EXIT TRUE 
ML 



Prunes two groups from 
the WORK roll, and 
exits with a true 
answer in ANSWER BOX. 

Prunes one group from the 
WORK roll, and exits 
with a true answer in 
ANSWER BOX. 



Routine 
Label Name 
G0460 CLEAR TWO 

AND EXIT 

FALSE 



G04 61 CLEAR ONE 
AND EXIT 
FALSE 



G0462 EXIT FALSE 



G0464 CLEAR FOUR 
AND EXIT 



G0465 CLEAR THREE 
AND EXIT 



G0466 CLEAR TWO 
AND EXIT 



G0467 CLEAR ONE 
AND EXIT 

G0468 EXIT 



Comments 

Prunes two groups from 
the WORK roll, and 
exits with a false 
answer in ANSWER BOX. 

Prunes one group from the 
WORK roll, and exits 
with a false answer in 
ANSWER BOX. 

Sets ANSWER BOX to false, 
and exits. 

Prunes four groups from 
the WORK roll, and 
€?xits. 

Prunes three groups from 
the WORK roll, and 
exits . 

Prunes two groups from 
the WORK roll, and 
exits. 

Prunes one group from the 
WORK roll, and exits. 

Obtains return address 
from the EXIT roll, and 
transfers to that 
address. 



Set ANSWER 
and exit. 



BOX to true 



UNIFY LABEL LIST 



The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used by Unify. 



Routine Name 
START UNIFY 

ARRAY REF ROLL ALLOTMENT 

CONVERT TO ADR CONST 

CONVERT TO INST FORMAT 

DO NEST UNIFY 

SUPPLEMENTARY UNIFY LABEL LIST 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Unify which are not shown in the section of 
flowcharts for the phase. 





Chart 


Label 


ID 


G0111 


07 


G0145 


DA 


G0113 


DB 


G0112 


DC 


G0115 


DD 
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Routine 
Labe l Name 
GO 11 4 CALL GEN 



G0116 NOTE ARRAY 
ALLOCATION 
DATA 

G0117 LEVEL ONE 
UNIFY 



G0118 DO LOOP 
UNIFY 



GO 11 9 SWEEP 
SCRIPT 
EXP NOTE 



GO 120 ZERO COEF 
UNIFY 



Comments 
Transfers to 
phase of the 



the Gen 
compiler. 



Routine 
Label Name 
G0126 STANDARD 

EXPS UNIFY 



Processes SCRIPT roll 
block to reflect stor- 
age allocation. 

Sets variables for the 
processing of a single 
loop or the outer loop 
of a nest of loops. 

Controls the processing 
of script data asso- 
ciated with current 
innermost loop. 

Compares the area code 
and the outer coeffi- 
cient of all other 
entries on the NEST 
SCRIPT roll to the bot- 
tom entry on the roll. 

Sweeps the script entries 
for the innermost loop, 
determining whether the 
outer coefficient is 
zero and that the inner 
coefficients are also 
the same. Depending 
upon the condition, the 
loops are re-registered 
on the LOOP SCRIPT 
roll. 



GO 121 NOTE SCRIPT Establishes the nature of 
EXP the script entries as 

standard or non- 
standard. 



G0122 ESTABLISH 
STD SCRIPT 
EXP 



G0123 NOTE HI 
FREQ STD 



G0124 SCRIPT EXP 
UNIFY 



Forms the LOOP CONTROL 
and REG roll entries 
for each STD SCRIPT 
pointer found in WO, 
also registering the 
STD SCRIPT LOOP CONTROL 
rung. 

Checks the frequency used 
for a particular stand- 
ard script expression, 
and sets the frequency 
count. 

Controls the processing 
of innermost LOOP 
SCRIPT roll entries 
with matching area code 
and outer coefficients; 
also links each NONSTD 
roll entry with each 
STD roll entry, compar- 
ing the induction 
coefficients. 



G0127 CONVERT 
NONSTD 
SCRIPT TO 
STD 



G0128 SIGN ALLOC 
DISPLACE- 
MENT 



G0129 DELTA GE 

4087 UNIFY 



G0130 DELTA LE 

4 087 UNIFY 



G0131 ESTABLISH 
REG 
STRUCTURE 



G0132 EST. REG 
GROUP 

G0133 ESTABLISH 
LOOP 
CONTROL 



G0134 EST. LOOP 
CONTROL 



G0135 FORM OUTER 
SCRIPT 



Comments 

Processes STD SCRIPT roll 
when NONSTD roll 
entries have all been 
processed or have never 
existed. Moves entries 
to next outermost loop. 

Picks a NONSTD roll entry 
with a minimum dis- 
placement and processes 
it as if it were a 
standard script. 

Utility routine to spread 
the sign of negative 
displacements. 



Processes paired STD or 
NONSTD roll entries 
with DELTA greater than 
4087 bytes. Generates 
second register and 
LOOP CONTROL entries. 

Processes paired STD or 
NONSTD roll entries 
with DELTA less than 
4087 bytes. DELTA is 
placed in each ARRAY 
REF entry in the chain. 

Controls formation of 
LOOP CONTROL and REG 
roll groups for SCRIPT 
pointer in W0. 

Forms REG roll entry for 
SCRIPT pointer in W0. 

Entry to establish loop 
control which sets up 
stamps for impending 
LOOP CONTROL group. 

Forms LOOP CONTROL group 
for SCRIPT entry in Wl. 



Processes paired STD or 
NONSTD roll entries 
with best match in 
inner coefficients. 
Forms SCRIPT entry for 
next outermost loop 
with coefficient dif- 
ferences in coefficient 
slots. 



G0136 NOTE SECOND Runs the ARRAY REF 
REG THREAD thread, removing . each 
link to provide for the 
second register. 
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Routine 

Label Name 

G0137 UPDATE 

FREQS 



G0138 REG SCRIPT 
EXP 



GO 139 PRUNE 

SCRIPT REL 
TO PNTR 



Comments 

Sums the frequencies of 
the STD or NONSTD pair 
to indicate increased 
usage. 

Registers the STD or 
NONSTD in WO on the STD 
or NONSTD roll. 



Utility routine to remove 
SCRIPT groups. 





Chart 


Label 


ID 


G0491 


08 


G0499 


EA 


G0504 


EB 


G0508 


EC 


G0712 


ED 


G0493 


EF 


G0515 


EG 


G0496 


EH 



Routine Name 
START GEN 

ENTRY CODE GEN 

PROLOGUE GEN 

EPILOGUE GEN 

GET POLISH 

LBL PROCESS 

STA GEN 

STA GEN FINISH 



GO 14 NOTE ARRAY 
REF DELTA 



G01U1 REALIZE 

REGISTERS 
SWEEP 



G0142 NOTE HI 
FREQ REG 



G0143 ASSIGN 

TEMPS FOR 
REGS 



Adjusts the information 
indicated from the 
SCRIPT allocation ac- 
cording to the displa- 
cement to the asso- 
ciated ARRAY REF roll 
entries. 

Sweeps the REG roll, as- 
signing available reg- 
isters to the registers 
and temps, according to 
the frequency of use of 
the registers in the 
REG roll. 

Utility routine which 
notes the REG roll 
group indicating the 
highest frequency of 
use. 



Places next temp into the 
ARRAY REF run and ad- 
justs the LOOP CONTROL 
stamps to reflect temp 
usage. 



G0144 CONVERT REG Performs the actual 
TO USAGE transfer of REG or TEMP 
roll entries into the 
ARRAY REF threads. 



GEN LABEL LIST 



The labels contained in the following 
list are illustrated in the flowcharts 
provided with the description of the Gen 
phase of the compiler. 



SUPPLEMENTARY GEN LABEL LIST 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Gen but not shown in the section pertaining 
to the phase. 



Routine 
Label Name 
G0494 CLINCH 



G0H97 ZERO THE 
ACS 



Comments 

Clears the base register 
table. 

Clears the accumulators 
to be used. 



G04 98 MOVE ZEROS Fills the indicated 
TO T AND C number of groups on the 
TEMP AND CONST roll 
with zeros. 

GO 500 INSERT PROG Puts name of source 
NAME IN module on CODE roll. 
CODE 



G0501 MAIN 

PROGRAM 
ENTRY 



Builds instructions for 
the entry into the main 
program. 



G0502 PRO AND EPI Determines the address 

ADCON GEN constant for prologues 

and epilogues for the 

instruction that is 

created. 

G0503 ADCON MAKER Builds ADCON roll group 
GEN cind places adcon 

instruction on CODE 
roll. 



G0505 LOAD DMYS 
GEN 



Builds the code to load 
the dummy arguments 
specified in a 
subprogram. 
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Routine 
Label Name 
GO 506 BUILD DMY 

ARRAY DIM 



GO 507 CALCULATE 
DMY DIM 



Comments 

Determines the dummy 
array dimensions speci- 
fied in the arguments 
for the subprogram. 

Calculates the dummy 
array dimensions speci- 
fied as arguments to a 
subprogram, and builds 
the appropriate in- 
structions. 



Routine 
Label Name 
GO 52 2 BUILD JUMP 

INST 



G0523 GO TO STA 

GEN 
G052U ASSIGN GO 

TO STA GEN 
G0525 GO TO JUMP 

GEN 



Comments 

Constructs a branch in- 
struction, with input 
indicating type and 
branch point. 

These routines control 
and construct the 
object code required to 
execute the indicated 
type of GO TO state- 
ment. 



GO 50 9 RESTORE DMY Restores the dummy argu- 
GEN ments for value trans- 

fer at the end of a 
subprogram. 



GO 510 TEST CALL 
BY NAME 



GO 511 BUILD A 

MOVE DMY 

GROUP 
GO 51 2 BUILD A 

STORE DMY 

ADD 
GO 51 3 INCREMENT 

DMY PNTR 
GO 514 BUILD A 

LOAD TWO 

G0516 ASSIGNMENT 
STA GEN 



G0517 AFDS STA 
GEN 



GO 518 AFDS IN IT 



G0519 ASSIGN STA 
GEN 



GO 520 IF STA GEN 



G0521 LOGICAL IF 
STA GEN 



Determines whether the 
arguments to a subpro- 
gram were designated as 
call by name values. 

These routines build 
the instructions that 
transmit the indicated 
values transferred by 
the dummy arguments to 
subprogram. 



Controls the construction 
of the code for an 
assignment statement. 

Controls and constructs 
the instructions for an 
arithmetic function 
definition statement. 

Initializes the construc- 
tion of the code for an 
arithmetic function 
definition statement by 
constructing the label 
and jump instructions. 

Constructs the object 
code for an ASSIGN 
statement. 

Constructs the object 
code for an IF 
statement. 



G0526 CGOTO STA These routines construct 
GEN the object code for a 

GO 5 27 CGOTO FOR GO TO statement that is 
CALL RETURN the subprogram return. 
GEN 



GO 52 8 CONTINUE 
STA GEN 

GO 52 9 BLOCK DATA 
GEN 



G0530 STA INIT 



GO 5 31 DATA STA 
GEN 



G0532 ALIGN DATA 



G0533 INIT FOR 
VAR 



G053U MOVE DATA 



G0535 MOVE TO 

CARD IMAGE 



Returns. 



Sets up the rolls and 
data used in the con- 
struction of the object 
code for the BLOCK DATA 
statement. 

Stores the statement 
number and leaves 
statement drives in W0. 

Determines the use and 
mode of the data 
variables and con- 
structs the object code 
based on this 
information. 



Adjusts the data 
instruction format. 



for 



Constructs 
code for 
statement. 



the object 
a Logical IF 



Obtains the base, size, 
displacement, and area 
code of the indicated 
variable and adjusts 
the instruction format 
for the variable 
according to the infor- 
mation obtained. 

Sets up the beginning of 
the data for card 
format. 

Obtains the location of 
the indicated data for 
transfer to instruction 
format. 
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Routine 

Labe l Name 

GO 53 6 MOVE TO 

CARD REPEAT 



Comments 

Controls the insertion of 
the data into the card 
format and the punching 
of the appropriate TXT 
card. 



GO 537 PUNCH A TXT Write a TXT card from 
CARD data whose location is 

G0538 PUNCH A TXT provided. 
CARD ML 

GO 53 9 PUNCH TXT 
ENTRY 2 



GO 54 2 CALCULATE 
VAR SIZE 



Determines size of a 
variable from TAG field 
of pointer in WO. 



G0543 END STA GEN Builds code for AT if 

required and branches 
to TERMINATE PHASE. 



GO 54 7 BSREF STA 
GEN 



GO 54 8 STOP PAUSE 
STA GEN 



Controls the construction 
of the object code for 
a BACKSPACE, REWIND, or 
END FILE statement. 

Constructs the object 
code for a STOP or 
PAUSE statement. 



Routine 

Label Name 

GO 556 IO STA GEN 



G0557 INIT IO 
LINK GEN 



G0558 UNIT 10 
ARG 



G0559 DIRECT IO 
ARG 



G0560 FORMAT IO 
ARG 



C omments 

Determines the type of 
input/output statement 
that is indicated and 
transfers to the rou- 
tines that process that 
particular type of 
statement. 

Initiates and sets data 
for the generation of 
the input /output link- 
age. 

Determines the logical 
unit number of the 
input/output device. 

Sets up controls for the 
construction of the 
object code for direct- 
access input/output 
statements. 

Sets up data pertaining 
to the FORMAT for the 
construction of the 
object code of an 
input/output statement 
under format control. 



G0549 LOAD IBCOM 



GO 5 50 RETURN STA 
GEN 

GO 551 ENTRY STA 
GEN 
SPROG 
STA GEN 



Builds an instruction for 
a call to the IBCOM 
routine. 

Builds the object code 
for a RETURN statement. 

Constructs the label in- 
struction for an ENTRY 
statement or the entry 
into a subprogram. 



G0552 DEFINE FILE Constructs the object 
STA GEN code instructions for 
the DEFINE FILE 
statement. 



GO 5 53 GRNTEE A 
TEMP 



GO 5 54 ILLEGAL 
AFDS STA 
GEN 



Ensures that the constant 
from DEFINE FILE is 
registered on the TEMP 
AND CONST roll. 

Generates an error link 
for a statement func- 
tion which was invalid. 



G0561 IO INITIAL 
ENTRY GEN 



G0562 BUILD UNIT 
ARG 



G0563 BUILD A 
LINK ARG 



GO 555 ILLEGAL STA Constructs a no-operation 
GEN ENTRY instruction and an 
error link for the 
statement in error. 



G0564 BUILD 

FORMAT ARG 



G0565 GRNTEE 10 
LINK ADD 



G0566 IOL DO 

CLOSE GEN 



G0567 10 LIST 
GEN RUN 



Sets up code for the call 
to IBCOM to control 
execution of the indi- 
cated input/output 
statement. 

Constructs argument pass- 
ed for unit number in 
input/output linkages. 

Constructs the object 
code for the arguments 
designated in the 
input/output state- 
ments. 



Constructs the object 
code for the designated 
format control of an 
input/output statement. 



Constructs 
code for 
linkage. 



the object 
input/output 



Generates object code for 
closing of implied DO 
in I/O list. 

Determines whether I/O 
list is DO implied. 
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Routine 
Labe l Name 
G0568 IOL DO 

OPEN GEN 



GO 56 9 IOL ARRAY 
GEN 



G0570 IO LIST 
PNTR GEN 
IOL PNTR 
GEN 



G0571 IO LIST 

ARRAY PNTR 
GEN 

G0572 BUILD 

ELEMENTS 
ARG 



Comments 

Sets up the data for the 
generation of instruc- 
tions for input/output 
DO loop. 

Generates linkage for 
secondary array entry 
to IBCOM. 

Determines the type of 
the I/O list, and con- 
trols the construction 
of the object code for 
the list. 

Sets up the data and 
determines the type of 
array list. 

Builds an argument for 
input/output linkage 
for a single element in 
an I/O list. 



Routine 
Label Name 



Comments 



GO 57 3 IO LIST DMY Builds the object code 
ARRAY for a dummy array I/O 
list. 



GO 574 GLOBAL DMY 
TEST 



GO 57 5 IO STA END 
IO STA END 
GEN 

GO 57 6 BUILD IO 
LINK 



GO 577 LOAD 

ADDRESS 
IBCOM 

G0578 INIT IBCOM 
PNTR AND 
ENTRY 



GO 579 CALCULATE 
LENGTH AND 
TYPE 



G0580 DO STA GEN 



Determines whether the 
variable in question 
has been defined in 
usage as a global 
dummy. 

Generates call for end of 
I/O list. 



Controls construction of 
the object code to ter- 
minate an input/output 
operation. 

Inserts the absolute call 
to the system input/ 
output routine, IBCOM. 

Initializes for process- 
ing of input/output 
statements by storing 
code word and IBCOM 
pointer from POLISH 
roll. 

Determines the length and 
type of variables de- 
signated in input/ 
output statements. 

Determines the nature of 
the DO statement, sets 
up the data for the 
code of the statement. 



GO 5 81 LOOPS OPEN Obtains the DO control 
GEN data and controls the 

construction of the 
appropriate instruc- 
tions. 



G0582 INIZ LOOP 
GEN 



Determines the nature of 
the indicated DO loop 
after determining 
whether a loop exists. 



G0583 INIZ GIVEN Constructs the object 
COEFF GEN code for the initiali- 
zation of the indicated 
induction variable 
coefficient. 



G058U DO CLOSE 
SBR 



G0585 FIND COEFF 
INSTANCE 



Constructs the object 
code for the close of a 
DO loop after setting 
up controls for the 
increment and terminal 
values of the loop 
iteration. 

Determines the existence 
of the indicated nature 
of a loop through com- 
parison of the desig- 
nated traits and 
coefficient. 

Determines whether a 
register has been 
assigned for the script 
expression in question 
or whether a temporary 
storage is required. 



G0587 INITIALIZE Generates the load of 
BY LOAD GEN registers to be used 
throughout a DO loop. 

G0588 GRNTEE TEMP Builds a store instruc- 
STORED GEN tion for the temporary 
storage used by the 
script expression. 



G0586 NOTE TEMP 
REQ 



G0589 GRNTEE 

SOURCE REG 
LOADED 



G0590 INCR GIVEN 
COEFF GEN 



Determines the area and 
location for the regis- 
ter to be used by the 
script expression, and 
generates the load 
instruction for the 
indicated temporary 
storage. 

Determines the nature and 
use of the loop incre- 
ment and builds the 
appropriate instruc- 
tions for the execution 
of the increment. 
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Routine 

Label Name Comments 

G0607 CALL STA Calls the routines which 

GEN build the object code 

for the CALL statement. 

G0608 FLP AND Flips POLISH roll and 
PREP VAR moves first variable to 
WORK roll. 

GO 60 9 EXP GEN Controls the determining 
BY MODE of the mode of the 
indicated expression. 

GO 610 EXP GEN AND Generates code for ex- 

GRNTEE AC pression on bottom of 

POLISH roll and ensures 

that result is in a 

register. 

GO 611 GRNTEE EXP Guarantees that the mode 

of the expression is 
positive. 



Label 



Routine 
Name 



GO 61 2 EXP GEN 



G0613 GEN RUN 



GO 61 4 NOT GEN 

UNARY MINUS 
GEN 

GO 61 5 DIV GEN 



G0616 



INTEGER 
DIV GEN 



GO 617 SUB GEN 



G0618 ADD GEN 



G0619 MPY GEN 



Obtains the expression 
for GEN processing. 

Determines the operation 
mode of the entity in 
question. 

Inverts sign indicator 
for variable on bottom 
of WORK roll. 

Controls production of 
object code for divide 
operation. 

Generates code for inte- 
ger divide. 

Generates code for sub- 
tract operation. 



Generates code 
operation. 



for add 



Controls production of 
object code for multi- 
ply operation. 



G0620 INTEGER MPY Generates code 
GEN ger multiply. 



for inte- 



G0621 INTEGER MPY Common end for multiply 
DIV END and divide generation 
routines; records 
register usage. 

GO 622 SUM OR PROD Guarantees that one of 

GRNTEE the two elements on 

WORK roll is in a 

register and that mode 

of operator is correct. 



G0623 DRIVER GEN 



G0624 AND GEN 



AND FINISH 
GEN 



G0625 

G0626 OR GEN 



G0627 



OR FINISH 
GEN 



G0628 PREPARE FOR 
LOGICAL GEN 



G0629 EQ GEN 



G0630 NE GEN 



G0631 LT GEN 



G0632 GT GEN 



G0633 GE GEN 



G0634 LE GEN 



Comments 

If an array driver, goes 
to SCRIPT PREP; if not, 
exits false indicating 
end of an expression. 

Generates code for an AND 
operation. 

Actually builds an AND 
operation on CODE roll. 

Generates code for an OR 
operation. 

Actually builds an OR 
operation on CODE roll. 

Sets up the data for the 
statement containing a 
logical operation. 

Generates code for an EQ 
relational operation. 

Generates code for an NE 
relational operation. 

Generates code for an LT 
relational operation. 

Generates code for a GT 
relational operation. 

Generates code for a GE 
relational operation. 

Generates code for an LE 
relational operation. 



G0635 RELATIONAL Builds the object code 
GEN instructions based on 

the relational condi- 
tion specified in the 
logical operation. 

G0636 PREPARE FOR Converts and adjusts data 
RELATIONAL for construction of the 
object code of a rela- 
tional comparison. 



G0637 POWER GEN Builds exponentiation 

linkage on the CODE 
roll. 



G0638 POWER AND Sets up the data for 
COMPLEX MPY operations involving 
DIV GEN multiplication or divi- 
sion of exponentiated 
or complex variables. 
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Routine 
Labe^ Name 
G0639 INTEGER 

POWER GEN 



GO 640 SPROG GEN 



GO 641 SPROG GEN 
SUB 



GO 64 2 SPROG END 
GEN 



G0643 SPROG ARG 
SEQ GEN 



GO 64 4 REG SPROG 
ARG 



GO 64 5 GRNTEE ADR 
GEN 



GO 64 6 TEST CONST 
ARG 



GO 647 TEST AND 

STORE REGS 



G0648 GRNTEE AC 
GEN 



GO 64 9 GRNTEE NEW 

AC GEN 
G0650 PICK A NEW 

AC 
G0651 PICK FL 

AC 
G0652 PICK A 

COMPLEX AC 



Comments 

Builds the appropriate 
load and multiply 
instructions for expo- 
nentiation depending on 
the mode of the 
operation. 



Determines the nature of 
the operand of a CALL 
statement or of a 
subprogram. 

Generates the code for a 
subprogram call includ- 
ing argument calcu- 
lations. 

Constructs the object 
code for the return or 
close of a subprogram. 

Controls the interpreta- 
tion of the sequence of 
arguments designated to 
a subprogram. 

Controls the register 
assignment to sub- 
program arguments as 
they are encountered in 
sequence. 

Guarantees that the 
subprogram arguments 
are assigned and builds 
the indicated load and 
store instructions. 

Determines mode of a con- 
stant subprogram 
argument. 

Tests to determine if any 
register used as an 
accumulator contains 
data; if so, generates 
code to store the con- 
tents in a temporary 
location. 

Stores the contents of 
WO in an accumulator if 
not already designated. 

These routines deter- 
mine the accumulator to 
be used in an indicated 
operation depending 
upon the mode of the 
variable in question. 



Routine 
Label Name 
G0653 CLEAR A 

PAIR 
G0654 PICK A 

PAIR 
G0655 PICK A 

PAIR END 



GO 6 56 TEST FOR 
BEST PAIR 



GO 6 57 GRNTEE 

POSITIVE 
GEN 



G0658 COMP FX 
CONST 

G0659 COMP FL 
CONST 

G0660 COMP DP 
CONST 

G0661 COMP 

COMPLEX 
CONST 



Comments 

These routines determine 
and clear a pair of 
fixed or floating ac- 
cumulators depending on 
the type of the reg- 
ister in WO. These 
routines are used in 
integer, multiply, 
divide, and complex 
operations. 

Determines the two opti- 
mal accumulators to be 
used for the operation 
indicated. 

Sets the mode of the 
indicates accumulator 
to positive if not 
already set, and 
generates appropriate 
code. 

Set the mode of the in- 
dicated constant. 



Sets the mode of the 
indicated constant. 



G0662 CORRECT FOR Complements the value 
SIGN DATA 1 DATA1. 



G0663 INCLINE 
FUNCTION 
GEN 

G0664 CONVERSION 
FUNCTION 
GEN 



G0665 

G0666 

G0667 
G0668 
G0669 

G0670 

G0671 



ABS 

FUNCTION 
GEN 
MOD 

FUNCTION 
GEN 

INT FUNC- 
TION GEN 
AIMAG FUNC- 
TION GEN 
CMPLEX 
FUNCTION 
GEN 

TWO ARG 
INLINE 
COMMON 
CONJG FUNC- 
TION GEN 



Sets up table for the 
generation of code for 
in-line functions. 

Generates code to perform 
an in-line mode conver- 
sion. 

These routines generate 
the object code in- 
structions for the in- 
line function indicated 
by the name of the rou- 
tine. 
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Routine 

Label Name 

G0672 SIGN FUNCT 

GEN 
G0673 DIM FUNCT 

GEN 

G0674 GRNTEE 

BOTH MODES 



GO 67 5 GRNTEE 
MODE Wl 



Comments 

(see Label G0665) 



Sets the mode of the data 
in WO and Wl to posi- 
tive if not already 
set. 

Determines the mode of 
the variable in Wl and 
transfers to the appro- 
priate conversion rou- 
tine depending on the 
mode of WO. 



Routi ne 
Label Name 
G0682 TEST DP 

CONST 



G0683 COMPLEX 

CONVERSION 



GO 6 84 DP COMPLEX 
CONVERSION 



Comments 

Exits false if pointer in 
WO is not to a double- 
precision constant; 
otherwise, loads con- 
stant into central area 
and exits true. 

Determines the mode and 
nature of the two com- 
ponents of the complex 
variable or constant. 

Determines the mode and 
registers the indicated 
double- precis ion com- 
plex variable or 
constant. 



G0676 LOGICAL- 
CONVERSION 



G0677 FX 

CONVERSION 



G0678 FL 

CONVERSION 



Places the logical vari- 
able contained in WO 
into an accumulator. 

Places the variables con- 
tained in WO and Wl in 
an accumulator if the 
mode is 1*2; otherwise, 
a conversion to float- 
ing point is made. 

Tests the contents of WO 
and Wl for floating 
variables or constants. 
If the contents are not 
floating variables or 
constants, it deter- 
mines the nature of the 
data, registers the 
variable or constant, 
and assigns an accumu- 
lator for the oper- 
ation.) 



G0679 CONVERT TO Generates code to clear 

COMPLEX the imaginary register 

END and loads the real 

register in real to 

complex conversion. 



G0685 COMPLEX 
AC TEST 



G0680 TEST A FL 
CONST 



G0681 DP 

CONVERSION 



Exits false if pointer in 
WO is not to a floating 
constant; otherwise, it 
loads the constant into 
central area and exits 
true. 

Determines the nature of 
the double-precision 
variable or constant 
indicated, converts 
into the indicated for- 
mat, assigns an accumu- 
lator, depending on the 
mode of the variable. 



Sets up FL AC roll for 
proper pointers to a 
value converted to 
complex. 



G0686 AC END AND Used during conversion, 

CONV RETEST to set up AC roll, and 

to determine whether 

conversion is complete. 



G0687 CONVERT 
RETEST 



G0688 REGISTER 

WORK CONST 



Sets up WORK roll so that 
GRNTEE MODE Wl can 
determine whether a 
conversion is complete. 

Records constant in WO as 
an integer constant. 



G0689 REGISTER FX Register the constant 

from DATA area on the 
indicated roll if not 
already defined; con- 
stant is compiler gen- 
erated. 



CONST 
G0690 REGISTER FL 

CONST 
G0691 REGISTER DP 

CONST 
G0692 REGISTER 

COMPLEX CONST 
G0693 REGISTER DO 

COMPLEX CONST 



G0695 FLOAT A FX 



G0696 FIX A FL 



G0697 FLOAT AND 
FIX COMMON 



G0708 TEST AC 
AC TEST 



Converts a floating con- 
stant or generates code 
to convert a floating 
variable to fixed mode. 

Converts a fixed mode 
constant or generates 
code to convert a fixed 
variable to floating 
mode. 

Common exit for routines 
which write code to 
float or fix variables. 

Determines whether the 
mode of the indicated 
accumulator is fixed or 
floating. 
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Routine 
Label Name 
G0709 AC END 



GO 710 GRNTEE AC 
ZERO 



G0711 SPOIL STO 
REG 



Comments 

Determines whether one or 

two accumulators are 

being used. 

Assures that the accumu- 
lator being used in the 
operation is register 
zero. 

Clears appropriate entry 
on AC roll for a 
register which has been 
stored. 



G0713 CLEAR THREE Remove indicated number 



AND EXIT 

TRUE 
GO 714 CLEAR TWO 

AND EXIT 

TRUE 
G0715 CLEAR ONE 

AND EXIT 

TRUE 

G0716 EXIT TRUE 
EXIT TRUE 

ML 



of groups from WORK 
roll, set ANSWER BOX to 
true, and return. 



Sets ANSWER BOX to true 
and returns. 



G0718 CLEAR THREE Remove indicated number 



AND EXIT 

FALSE 
G0719 CLEAR TWO 

AND EXIT 

FALSE 
G0720 CLEAR ONE 

AND EXIT 

FALSE 



GO 7 21 EXIT FALSE 
EXIT FALSE 
ML 



of groups from WORK 
roll, set ANSWER BOX to 
false, and return. 



Sets ANSWER BOX to false 
and returns. 



G0723 CLEAR THREE Remove indicated 



EXIT 

CLEAR THREE 

AND EXIT 

G0724 CLEAR TWO 
EXIT 

CLEAR TWO 
AND EXIT 

G0725 CLEAR ONE 
EXIT 

CLEAR ONE 
AND EXIT 

G0727 EXIT 

EXIT ML 



of groups from 
roll and return. 



Returns , 



Routine 
Label Name 
G0730 ADCON MADE 

LBL MAKER 



G0731 CHECK JUMP 
LBL 



G0732 MADE LBL 
MAKER 



Com ments 

Builds ADCON roll and 
returns a pointer to 
the start of a group on 
the roll. 

Determines whether point- 
er in WO refers to a 
jump target label. 

Creates entry on BRANCH 
TABLE roll for made 
label, and returns 
pointer to group 
created. 



G0733 SCRIPT PREP Sets up the data for the 

calculation of the 

indicated script ex- 
pression. 



G0734 CALCULATE 
SCRIPT 



G0735 TEST END 
SCRIPT 

G0736 CALCULATE 
OFFSET AND 
SIZE 





G0737 


GRNTEE REG 
9 




G0738 


TEST AND 
STORE REG 9 


false 


G0739 


BUILD A 
SHIFT 9 


number 
WORK 








G0744 


BID INIT 




G0745 


BIM INIT 




G0746 


BIM BID 
INIT 




G0747 





G07U8 EXIT FULL 



BID 
BIDPOP 



G0728 EXIT ANSWER Sets ANSWER BOX and exits 
ML for EXIT routines which 

set ANSWER BOX. 



Determines the mode and 
operation of the vari- 
ables contained in the 
script expression. 

Determines the end of the 
script expression. 

Determines the size of 
each element contained 
within an expression, 
and the displacement 
pertaining to each 
array. 

Place the index values 
for arrays in register 
9 if not already set. 



Builds a shift register 9 
instruction for sub- 
scripting; shift length 
is determined by array 
element size. 

Initializes data for the 
contsruction of the in- 
struction designated by 
the BID, BIN, or BIM 
POP instructions. 

Used on entry to BIN when 
BIN fills the EXIT 
roll. 

This is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BIDPOP instruction. 
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Routine 

Label Name 

G0750 BIN 

BINPOP 



G0751 NOTE A 
CSECT 



G0752 BIM 

BIMPOP 



G0753 RX FORMAT 



G0754 RR FORMAT 



G0755 ADDRESS 
MAKER 



G0756 BUILD A 
BASE REG 



G0757 SCALAR 

OPERAND 

ARRAY 

OPERAND 

GLOBAL 
SPROG 
OPERAND 

USED FUNC- 
TION LIB 
OPERAND 

NAMES LIST 
OPERAND 

FORMAT LBL 
OPERAND 

GLOBAL DMY 
OPERAND 

GO 7 58 DMY LBL 
COMMON 



Comments 

This is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BINPOP instruction. 

This routine obtains the 
Control section in 
which the current 
instruction being gen- 
erated is to be placed. 

This is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BIMPOP instruction. 

General routine used to 
build all RX type 
instructions. 

This routine implements 
the RR format designa- 
tion for the instruc- 
tion being generated. 

Used to build all base, 
displacement, and index 
type addresses. 

Determines the base loca- 
tion within a particu- 
lar control section at 
which the object code 
instructions begin. 

Builds address for the 
specified type of oper- 
and. 



Generates address 
FOMAT references. 



for 



Routine 

Label Name 

G0760 SPROG ARG 

OPERAND 



G0761 BRANCH 
TABLE 
OPERAND 

G0762 BRANCH 
TABLE 
COMMON 



G0763 BRANCH 
SPROG 
COMMON 

G0764 T AND C 
OPERAND 



G0765 T AND C 
COMMON 



Oments 

Builds address for refer- 
ence to subprogram 
argument list. 

Builds address for refer- 
ences to made labels. 



Used by LBL and BRANCH 
TABLE OPERAND routines 
to contstruct address. 



Used by LBL, BRANCH TABLE 
and SPROG ARG OPERAND 
to construct address. 

Constructs address for 
references to temporary 
storage or constants. 

Used for T AND C OPERAND 
and pointers to con- 
stant rolls. 



G0766 T AND C B Common exit for all 
COMMON branch and temporary 
and constant operand 
routines. 



G0767 LOCAL DMY 
OPERAND 



G0768 FX CONST 
OPERAND 



Determines the base loca- 
tion for the indicated 
operand and builds the 
code data from this 
information. 

Determines the size of 
the fixed constant 
operand and constructs 
the instruction depend- 
ing upon this infor- 
mation. 



G0769 FX FL CONST Moves single-precision 
SEARCH AND constant pointed to 
REG TEMP AND CONST roll if 

FL CONST not already on roll. 
OPERAND 

G0770 FX FL CONST Performs part of move of 
COMMON constant to TEMP AND 
CONST roll. 

G0771 SEARCH AND Searches TEMP AND CONST 



G0759 LBL OPERAND Builds address for refer- 
LOCAL SPROG ences to labels and 
OPERAND statement functions. 



REG SP 
CONST 

SEARCH AND 
REG FX 
CONST 

SEARCH AND 
REG FL 
CONST 



roll, registers con- 
stant if not already 
there, and returns 
pointer to TEMP AND 
CONST roll group. 
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Routine 

Label Name 

G0772 REG SP 

CONST 



Comments 

Registers single-preci- 
sion constant on TEMP 
AND CONST roll. 



G0773 DP FL CONST Construct address for 
OPERAND references to double- 
COMPLEX precision real and 
CONST single-precision com- 
OPERAND plex constants. 



GO 77 4 SEARCH AND Ensures that 
REG DP CONST precision 
SEARCH AND 
REG COMPLEX 
CONST 



a double- 
real or 
single-precision com- 
plex constant is on the 
TEMP AND XONST roll and 
returns a pointer to 
it. 



G077 5 REG DP 
CONST 



G0776 DP COMPLEX 
CONST 
OPERAND 



G0777 SEARCH AND 
REG DP 
COMPLEX 
CONST 



G0778 REG DP 
COMPLEX 
CONST 



Registers a new double- 
precision constant on 
the TEMP AND CONST 
roll. 

Constructs address for 
reference to a double- 
precision complex con- 
stant. 

Ensures that a double- 
precision complex con- 
stant is on the TEMP 
AND CONST roll and 
returns a pointer to 
it. 

Registers a new double- 
precision complex con- 
stant on the TEMP AND 
CONST roll. 



G0779 TEST DOUBLE Determines if the address 

WORD designated to the vari- 

BOUNDARY able or constant in WO 

begins on a doubleword 

boundary. 



G0780 ARRAY REF 
OPERAND 



G0781 LOAD REG 
FROM TEMP 



Handles array reference 
pointers to obtain 
scripted arrays ad- 
dresses. 

Generates a load of a 
base register from a 
temporary storage loca- 
tion. 



G0782 ARRAY PLEX Handles building address- 

OPERAND es when array plex is 

the indicated operand. 

G0783 SRCH AND ST Stores register 9 in a 
X9 FROM temporary register if 
ARRAY PLEX needed for generation 
of array plex address- 
es. 



Routine 
Label Name 
G0784 STORE IN 

TEMP 



G0785 STORE AND 
RETURN 
TEMP 



G0786 SEARCH 

TEMP ROLL 



Comments 

Generates code to store 
that register in a tem- 
porary location if WO 
is a pointer to a 
register. 

Uses a temporary location 
in checking temporary 
pointers for the indi- 
cated constants. 

Beginning with a pointer 
to the TEMP PNTR roll 
in WO, searches for an 
available temporary al- 
ready defined. Returns 
true, with pointer to 
TEMP AND CONST roll if 
found; otherwise, re- 
turns false. 



G0787 OPERAND RUN Selects processing rou- 
tine for present 
operand from pointer. 



G0930 SPOIL STO 
VAR 

SPOIL STORE 
VAR 



Determines whether point- 
ed to variable is being 
used in subscript which 
is now contained in 
register 8 or 9 ; if so, 
spoils that register. 



GO 9 31 SPOIL STORE Determines whether a 

VAR NON stored variable which 

READ 10 has not appeared in a 

READ should be stored. 



G0932 CLEAR ONE 
AND SPOIL 
CEAD 



Determines if pointed to 
variable is COMMON, 
EQUIVALENCE, alterable, 
or dummy; if so, spoils 
any register containing 
a subscript which uses 
any CEAD variable; and 
prunes one group from 
WORK. 

Same as CLEAR ONE AND 
SPOIL CEAD except it 
does not prune WORK 
roll. 



G093U TEST A CEAD Tests to determine if 

variable pointed to by 
WO is COMMON, EQUIVA- 
LENCE, alterable, or 
dummy. 



G0933 SPOIL CEAD 



G0935 NO ARG 

SPROG END 
GEN 



Entry point for generat- 
ing a subprogram call 
without arguments. 
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Routine 
Label Name 



Comments 



GO 9 37 SIMPLE Builds ARRAY PLEX roll 
SCRIPT PREP for subscripts handled 
in registers 8 and 9. 



G0938 CLEAR 3 
EXIT BIN 

G0939 CLEAR 1 
EXIT BIN 



G0940 EXIT BIN 



Exits from BIN, BIM and 
BID POP subroutines 
which remove the indi- 
cated number of groups 
from WORK. 

Exits from BIN, BIM, and 
BID POP subroutines. 



GO 9 41 SUBCHK GEN Builds code for SUBCHK 

entry if required. 



Routine 
Label Names 
G0953 BIN 

VARIABLE 

NAME 

G0954 RETURN 

SCALAR OR 
ARRAY PNTR 



G0955 DEBUG INIT 
GEN 



Comments 
Puts name of 
CODE roll. 



variable on 



Returns pointer to a 
SCALAR or ARRAY roll 
group from less direct 
reference. 

Generates DEBUG linkage 
for INIT variables. 



G0956 DEBUG SHORT Generates DEBUG linkage 
LIST INIT for INIT of a full ar- 
GEN ray. 



G0942 SIMPLE 
SCRIPT 
OPERAND 



G09H3 TEST FOR 
HIT 



Generates the code to 
compute a subscript 
value to be held in 
register 8 or 9. 



Determines whether reg- 
ister 8 or 9 already 
contains the present 
subscript. 



GO 9 57 DEBUG DMY 
INIT GEN 



Generates DEBUG linkage 
for INIT of a dummy 
variable. 



G0958 DISPLAY STA Generates DEBUG linkage 
GEN for a DISPLAY 

statement. 



G0959 DEBUG INIT 
ARG GEN 



Generates DEBUG calls 
after a CALL statement. 



G0944 LOAD 

SIMPLE X 
REG 



Generates code to set up 
register 8 or 9. 



EXIT LABEL LIST 



G0945 PICK A NEW Determines whether regis- 
SIMPLE X ter 8 or 9 will be used 
REG for subscript which 

must be loaded. 



The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used by Exit. 



G0946 CALC ELEM Calculates array element 
SIZE AND size and the length of 
SHIFT shift necessary to mul- 
tiply by that value. 

G0947 AT STA GEN Generates the object code 

for an AT statement. 



G0948 



G0949 



TRACE ON 
STA GEN 



TRACE OFF 
STA GEN 



Generates DEBUG linkage 
for a TRACE ON 
statement. 

Generates DEBUG linkage 
for a TRACE OFF 
statement. 





Chart 


Label 


ID 


G0381 


09 


G0382 


FA 


G0383 


FB 


G0384 


FC 


G0399 


FD 


G0400 


FE 


G0402 


FF 


G0403 


FG 


G0404 


FH 


G0405 


FI 


G0416 


FJ 


G0424 


FK 


G0564 


FL 



Routine Name 

EXIT PASS 

PUNCH TEMP AND CONST ROLL 

PUNCH ADR CONST ROLL 

PUNCH CODE ROLL 

PUNCH BASE ROLL 

PUNCH BRANCH ROLL 

PUNCH SPROG ARG ROLL 

PUNCH GLOBAL SPROG ROLL 

PUNCH USED LIBRARY ROLL 

PUNCH ADCON ROLL 

PUNCH RLD ROLL 

PUNCH END CARD 

PUNCH NAMELIST MPY DATA 



G0950 DEBUG Generates initial linkage 
INITIAL to DEBUG. 
LINKAGE GEN 



SUPPLEMENTARY EXIT LABEL LIST 



G0951 



G0952 



DEBUG VAR 
ADR GEN 



DEBUG 

ELEMENTS 

GEN 



Generates address for 
INIT or SUBCHK 
variable. 

Generates number of ele- 
ments for DEBUG link- 
age. 



The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Exit which are not shown in the section of 
flowcharts for the phase. 
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Routine 

Labe l Name 

GO 38 5 SWEEP CODE 

ROLL 

SWEEP CODE 

ROLL ML 



Comme nts 

Determines the nature of 
a word on the CODE roll 
and processes it ac- 
cording to type. 



Routine 

Label Name 

G0409 MOVE CODE 

TO TXT CARD 



Comments 

Transfers the indicated 

code to the output area 

to be punched. 



G0386 PUNCH INST Determines the type of 

PUNCH INST instruction to be 

ML punched (one, two # or 

three halfwords). 



GO 38 8 PUNCH TWO 
HALFWORDS 



GO 38 9 PUNCH ONE 
HALFWORD 



G0390 PUNCH 
THREE 
HALFWORDS 

G0391 PUNCH CODE 



GO 39 2 ABS PUNCH 



G0393 RELOC 
CONST 
PUNCH 

G0394 ABS CONST 
PUNCH 
ABS CONST 
PUNCH ML 

G0396 DEFINE LBL 



GO 397 ADCON 
PUNCH 

G0398 POC DATA 
PUNCH 



G0U01 SWEEP BASE 
BRANCH 
ROLL 



GO 40 6 HALF WORD 
WO TO TXT 
CARD 

GO 4 07 WO TO TXT 
CARD 

WO TO TXT 
CARD ML 



Sets up a two half word 
instruction format. 



Sets up a one half word 
instruction format. 



Sets up a three halfword 
instruction format. 



Punches the indicated 
instruction in the 
indicated format. 

Sets up for the punching 
of object module abso- 
lute constants. 

Sets the format for the 
punching of a relocat- 
able absolute constant. 

Punches the indicated ab- 
solute constants in 
the object module. 



Defines indicated label 
on BRANCH TABLE roll. 

Punches the address con- 
stant indicated in WO. 

Sets up the information 
needed for the listing 
and punching of code 
contained on the CODE 
roll. 

Initializes for the 
punching of the groups 
contained on the BASE 
and BRANCH TABLE rolls. 

A halfword instruction 
format is set up for 
the contents of WO. 

Transfers the contents of 
WO to the output, area 
to be punched. 



G0K10 INITIALIZE Initializes the format 
TXT CARD for the punching of the 

G0411 INITIALIZE TXT cards. 
TXT CARD ML 



G0412 PUNCH 

PARTIAL 
TEXT CARD 



G0U13 PUNCH A 
CARD ML 

G0414 PUNCH AN 
ESD CARD 



G0417 DEPOSIT 
LAST ESD 
NO. ON 
RLD CARD 

GO U 18 DB SECOND 
RLD WORD 
WITH CONT 



G0419 DB SECOND 
RLD WORD 
WITH NO 
CONT 



GO 420 DB SECOND 
RLD WORD 



G0421 DEPOSIT 
WORD ON 
RLD CARD 



G0422 PUNCH AN 
RLD CARD 



G0423 TERMINATE 
RLD 
PUNCHING 



G0425 LIST CODE 



G0426 RS OR SI 
FORMAT 



Punches any part of a 1XT 
card. 



Punches a complete TXT 
card. 

Sets the format for the 
punching of an ESD 
card. 

Obtains and deposits the 
last ESD number on the 
indicated RLD card for 
punching. 

Sets the format of a card 
with a continuation to 
a second card. 



Turns off the continua- 
tion indicator for the 
punching of the RLD 
card. 



Places the second word 
into the RLD format in 
the output area. 

Places the indicated word 
into the appropriate 
location in the RLD 
format. 

Punches the indicated RLD 
card. 



Determines whether the 
RLD card is full and 
sets controls accord- 
ingly. 

Sets up the format for 
the object module list- 
ing, and determines the 
instruction format for 
each indicated instruc- 
tion to be printed. 



Determines whether the 
indicated instruction 
is RS or SI format. 
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Routine* 

Labe l Name Comments 

G0U27 RS FORMAT Sets up the RS format for 

the indicated instruc- 
tion. 

G0428 SI FORMAT Sets up the SI format for 

the indicated instruc- 
tion. 

G0429 RX FORMAT Sets up the RX format for 

the indicated instruc- 
tion. 



G0430 RR FORMAT 



G0431 SS FORMAT 



Sets up the RR format for 
the indicated instruc- 
tion. 



Sets up the SS format for 
the indicated instruc- 
tion. 



G0432 ADCON LIST Sets up the format (DC 

format) for the address 
constants in the object 
module that are to be 
listed. 



Routine 

Label Name 

G0U43 PRINT 

HEADING 

PRINT 

HEADING 

ML 

G0444 PRINT 

COMPILER 
STATISTICS 



Comments 

Prints the indicated 
heading that is to 
appear on the object 
module listing. 



Sets up the indicated 
message in the print 
output area. 



G0445 PRINT CSECT Sets up the indicated 
MEMORY message in the print 
REQMTS output area. 
MESS 



G0446 PRINT 
CSECT 
TOTAL 
MESSAGE ML 

G0447 PRINT 
CSECT 
MESSAGE 

G0448 CONV AND 
PRINT 
D2(B2) ML 



Sets up the indicated 
message in the print 
output area. 



Sets up the indicated 
message in the print 
output area. 

Converts the indicated 
general register desig- 
nation for the RX, RS, 
and RR formats. 



G0433 DC LIST 



G043U PRINT 
ADCON 
LBL 



G0435 PRINT A 
MADE LBL 



G0U36 MADE LBL 
ADCON LBL 
COMMON 

G0U37 PRINT A 
LBL 



G0438 PRINT BCD 
OPERAND 



G0U39 PRINT A 
LINE 
PRINT A 
LINE PLUS 
ONE ML 

GOUaO PRINT A 
LINE ML 



Lists DC constants. 



Sets controls for the 
printing of the indi- 
cated address constant. 



Sets controls for the 
printing of the indi- 
cated label that has 
been created by the 
compiler. 

Inserts the indicated 
label into the print 
output area. 

Prints the indicated 

label on the object 
module listing. 

Inserts the indicated op- 
erand into the appro- 
priate position of the 
object listing in the 
output area. 

Print the indicated line 
once a full line has 
been set up in the out- 
put area. 



G0449 CONV AND 
PRINT 
D1B1 ML 



G0450 CONV AND 

PRINT D2 ML 
CONV AND 
PRINT Dl ML 



Converts the indicated 
address and general 
register designation 
for the SI and SS 
formats. 

Converts the indicated 
address and general 
register designations 
to instruction format. 



G0452 CONV AND Converts the indicated 
PRINT Bl ML address and general 
CONV AND register designations 
PRINT B2 ML to instruction format. 



G0453 CONV AND 

PRINT R2 ML 
CONV AND 
PRINT X2 ML 



Converts the indicated 
address and general 
register designations 
to instruction format. 



G0454 CONV AND Converts the indicated 

PRINT 12 ML address and general 

register designations 

to instruction format. 

G0455 CONV AND Converts the indicated 
PRINT Rl ML address and general 
CONV AND register designations 
PRINT LI ML to instruction format. 

G0U56 CONV WO AND Converts the contents of 
PRINT WO to decimal and in- 
CONVERT WO serts into print output 
AND PRINT area. 
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Routine 
Label Name 

GO 4 58 CONV AND 

PRINT PLUS 
ONE ML 

G0459 PRINT A 
COMMA ML 

G0U60 PRINT A 

LEFT PAREN 
ML 



Comment? 

Converts a number to dec- 
imal and places in 
print buffer. 

Places a comma into print 
output area* 

Places a left parenthesis 
into the print output 
area. 



Routine 
Label Name 
G0U65 EXIT 

EXIT ML 

EXIT 

ANSWER ML 

GO 56 6 RLD ALIGN 
SWEEP TE 



Comments 

Obtains the last entry on 
the EXIT roll and 
transfers to the indi- 
cated location. 

Sorts RLD entries so that 
all RLDs in one CSECT 
appear together. 



G0U61 PRINT A Places right paren- 
RIGHT PAREN thesis into the print 
ML output area. 



G0U62 PRINT A 
CHAR ML 



G046U 



CLEAR ONE 
EXIT 

CLEAR ONE 
AND EXIT 



Places the indicated 
character into the 
print output area. 

Prunes one word from the 
WORK roll and exits. 



GO 567 RLD ALIGN 
TEST 
SWEEP TEST 



G0569 GET ADR 

FROM PNTR 
ML 



Determines whether pres- 
ent RLD is in the 
CSECT now being con- 
structed. 

Gets location on DATA YAR 
roll from pointer in 
WO. 
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APPENDI X F; OBJECT-TIME LIBRARY SUBPROGRAMS 



This appendix describes the logic of the 
FORTRAN IV library subprograms. As the 
compiler examines the user's FORTRAN source 
statements and translates them into an 
object module, it recognizes the need for 
certain operations the library is designed 
to perform. At the corresponding points in 
the object module, the compiler inserts 
cans to the appropriate library subpro- 
grams. At linkage edit time, copies of 
these library subprograms are made part of 
the load module. Then, at execution time, 
the library subprograms perform their 
various functions. The nature of the 
user's program determines which and how 
many library subprograms are included in 
his load module. 



LIBRARY FUNCTIONS 



SYSTEM GENERATION OPTIONS 



At system generation time, the user 
makes several choices which determine the 
exact makeup of his FORTRAN IV library. 
These concern: 



BOUNDARY ALIGNMEN T OP TION : If this option 
is selected, the IHCADJST routine is 
included (as a member of the link library), 
when specification interrupts occur, this 
routine is loaded to attempt correction of 
object program data misalignment. 



EXTENDED ERROR HANDLING OPTION: 



option is selected, expanded 

some library routines are included. 

provide : 



__ If this 

versions of 

These 



The library performs a variety of func- 
tions, which are of five general types: 

• load module initialization and termina- 
tion activities 

• input/output operations 

• error handling 

• data conversion 

• mathematical and service functions 

It is an important library responsibility 
to form an interface between the load 
module and the operating system: library 
subprograms interface with the data manage- 
ment access methods, provide exit routines 
for the system interrupt handler and 
abnormal termination processor, and call 
the supervisor for various services. 



COMPOSITION OF THE LIBRARY 



The precise composition and size of a 
user* s version of the FORTRAN IV library 
will depend on what options he chose at 
system generation time. The actual loca- 
tion of his permanent library copy (the 
partitioned data set SYS1.F0RTLIB) is also 
dependent on his installation choice. 

A few subprograms, commonly thought of 
as FORTRAN IV library members, and dis- 
cussed in this appendix, are not actually 
members of SYS1. FORTLIB. Instead, they 
reside in the link library, to be loaded if 
needed by true library routines at execu- 
tion time. 



more precise error messages 

in some cases, more extensive library 

corrective action and continued 

execution 

the ability for the user to choose his 

own or the library's corrective action 



The library modules affected by this option 
are listed in Table 9. A user's library 
will include either one set of modules or 
the other. 



Table 9. Routines Affected by 
Error Handling Option 



Extended 



| Without 




With | 


| Extended 




Extended | 


| Error Handling 

i. 


j. 


Error Handling | 
j 


r — 


T — 


— .j 


| IHCFCOMH 




IHCECOMH | 


| IHCUOPT* 




IHCUOPT* | 


| IHCDIOSE 




IHCEDIOS | 


| IHCFIOSH 




IHCEFIOS | 


| IHCFINTH 




IHCEFNTH | 


| IHCTRCH** 




IHCETRCH | 


1 




IHCERRM*** | 


1 




IHCFOPT | 




L 


J 


r — 






| *The size diff 


ers, 


although not the | 


| name. 






| **With Extended 


Error Handling, ICHTRCH| 


| becomes an entry point in IHCETRCH. | 


(♦♦♦Without Extended Error Handling, | 


| IHCERRM is an i 


entry 


point in IHCTRCH. | 



212 



Order No. GY28-6638-1, page revised 1/15/71 by TNL GY28-6847 



One other module is affected by system 
generation choice. IHCUATBL, the data set 
reference table, has both its length and 
some contents determined at this time. 



MODULE SUMMARIES 



IHCTRCH 

This module (entry point IHCERRM) is 
the library error handling routine 
when extended error handling has not 
been specified. It is called by other 
library routines to direct message 
printing and produce traceback maps. 



I HCFCOMH/ IHCECOMH 

This module (with its CSECT extension 
IHCCOMH2) handles the load module 
initialization and termination activi- 
ties, end sequential and direct access 
input/output operations. It also con- 
tains switches, addresses, and save 
areas (at constant displacements from 
its entry point IBC0M#) that are used 
by other library routines. 

IHCNAMEL 

This module directs NAMELIST read/ 
write operations (entry point FRDNL# 
for reads, entry point FWRNL# for 
writes). 

IHCFIOSH/IHCEFIOS 

This module interfaces with the basic 
sequential access methods to do all 
sequential input/output for the load 
module. It is called (at entry point 
FIOCS#) by IHCFCOMH/IHCECOMH and 
IHCNAMEL to perform user-requested 
read/write and device manipulation 
operations, and by other library rou- 
tines (such as IHCERRM, IHCFDUMP, 
and IHCDBUG) to write error mes- 
ages , traceback maps , user-requested 
dumps, debug information, etc. 

IHCDIOSE/IHCEDIOS 

This module interfaces with the basic 
direct access methods to do all direct 
access input/output for the load 
module. It is called by the compiler- 
generated code (at entry point DIOCS#) 
for DEFINE FILE statements, and by 
IHCFCOMH/IHCECOMH (at entry point 
IBCENTRY) for READ, WRITE, and FIND. 

IHCFCVTH 

This module does data conversion 
required by other library routines. 
It is called (at entry point ADCON#) 
for formatted and namelist input/ 
output, and for other library opera- 
tions (such as traceback) that require 
EBCDIC output. 

IHCIBERH 

This module is called by the compiler- 
generated code (at entry point IBERH#) 
to terminate load module execution due 
to source statement error. 



IHCETRCH 

This module produces traceback maps 
when the extended error handling faci- 
lity is present. It can be called by 
the error monitor IHCERRM (at entry 
point IHCTRCH) , or by the compiler- 
generated code (at entry point ERRTRA) 
at user request. 



IHCERRM 

This module is the error monitor when 
extended error handling has been spec- 
ified (otherwise, it is an entry point 
in IHCTRCH). It can be called by 
other library routines detecting 
errors (at CSECT name IHCERRM), by 
IHCFCOMH/IHCECOMH for termination 
error summary (entry point IHCERRE), 
and by the compiler-generated code at 
user request (entry point ERRMON) for 
handling of user-detected errors. 
IHCERRM directs its error handling 
activities according to the entries in 
the option table, IHCUOPT. 

IHCUOPT 

This module is the option table. In 
addition to a preface, it contains one 
entry for each library-defined and 
user-defined error condition. These 
entries are used by the error monitor 
IHCERRM to direct its handling of 
errors. 

IHCFOPT 

This module satisfies user requests to 
examine and modify the option table 
IHCUOPT. It is called at entry points 
ERRSAV, ERRSTR, and ERRSET by the 
compiler-generated code. 

IHCFINTH/IHCEFNTH 

This module handles certain program 
interrupts. It is called by the sys- 
tem interrupt handler at entry point 
ARITH#. 

IHCADJST 

This module, which is included in the 
link library only if the user 
requested boundary alignment at system 
generation time, is loaded by 
IHCFINTH/IHCEFNTH to attempt correc- 
tion of data misalignment that has 
caused a specification interrupt. 
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IHCSTAE 

This module, which resides in the link 
library, is the STAE abnormal termina- 
tion processor. When IHCFCOMH/ 
IHCECOMH receives control (at entry 
point EXITRTN1) from the system 
because the load module has been sche- 
duled for abnormal termination, it 
loads IHCSTAE to attempt completion of 
outstanding input/output requests 
before execution ends. 

IHCUATBL 

This module is the unit assignment 
table. It contains information about 
the user's data set references, and is 
used by the library input/output rou- 
tines in their operations.* 

IHCFDVCH 

This module is called by the compiler- 
generated code (entry point DVCHK) at 
user request to determine if a divide 
check interrupt occurred. 



IHCFDUMP 

This module is called by the compiler- 
generated code (entry points DUMP, 
PDUMP) at user request to produce a 
dump of specified areas of main 
storage. 

IHCDBUG 

This module is called by the compiler- 
generated code (entry point DEBUG#) to 
direct the production of user- 
requested debugging information. 



MATHEMATICAL ROUTINES: Information on 

these library modules can be found in the 
publication IBM System/ 3 60 Operating Sys- 
tem; FORTRAN IV Library — Mathematical and 
Service Subprograms , Order No. GC28-6818. 



LIBRARY INTERRELATIONSHIPS 



IHCFOVER 

This module is called by the compiler- 
generated code (entry point OVERFL) at 
user request to determine whether or 
not overflow or underflow interrupts 
occurred. 

IHCFSLIT 

This module is called by the compiler- 
generated code (entry points, SLITE, 
SLITET) at user request to set or test 
private switches ("pseudo-sense 
lights"). 

IHCFEXIT 

This module is called by the compiler- 
generated code (entry point EXIT) at 
user request to terminate load module 
execution. 



It is helpful to recognize that there is 
not always a one-to-one relationship 
between library functions and library 
modules. Some functions require the execu- 
tion of several modules, and, conversely, 
some modules are involved with more than 
one function. 

Certain library modules are called pri- 
marily by the compiler-generated code,* but 
a large number are called only by other 
library modules or by the system. This 
relationship is illustrated in Figure 16. 

In interfacing with each other, with the 
system and with the compiler-generated 
code, library modules use nonsta ndard call- 
ing and register-saving procedures. 
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Library routines 




Library routines 


entered initiHIy 




entered only 


from compiler- 




from other 


generated code 




library routines 




A L 


or the system: 


IHCDBUG 


M Lm 




IHCFDUMP 


^^^ 


IHCADJST 


IHCFDVCH 


4 1 


IHCFCVTH 


IHCFEXIT 


vv 


IHCFINTH/ 


IHCFOPT 


1 r 


IHCEFNTH 


IHCFOVER 


i V 


IHCFIOSH/ 
IHCEFIOS 


IHCFSLIT 




IHCSTAE 


IHCIBERH 




IHCTRCH 


IHCNAMEL 




IHCUATBL 
IHCUOPT 



Library routines that fall into both 
categories, being entered sometimes 
from the compiler-generated code, and 
sometimes from other library routines 
or the operating system: 



IHCFCOMH/IHCECOMH 
IHCDIOSE/IHCEDIOS 
IHCETRCH 
IHCERRM 
Mathematical routines 




Figure 16. Calling Paths for Library Routines 



INITIALIZATION 



The library is responsible for the load 
module's initialization activities. Every 
compiler-generated main program begins with 
a branch to the IBFINT section of IHCFCOMH/ 
1HCECOMH. This library routine performs 
the following initialization procedure: 

• Saves the load module entry point in 
its location MAINEP, and the main pro- 
gram' s save area pointer in its loca- 
tion REG13. 



Issues a SPIE macro instruction speci- 
fying library control for program 
interrupts 9, 11, 12, 13, 15, and, if 
boundary alignment was selected at sys- 
tem generation time, 6. 



Issues a STAE macro instruction speci- 
fying library control if the system 
schedules the load module for abnormal 
termination. 



• Calls IHCFIOSH/ IHCEFIOS 
object error unit. 



to open the 
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Control is then returned to the main pro- 
gram, which begins its processing. 



INPUT/OUTPUT OPERATIONS 



Processing FORTRAN input/output requests 
is mainly the responsibility of the 
library. For each request, the compiler 
sets up a call(s) to the appropriate entry 
point in the appropriate library routine. 
For NAMELIST READ/WRITE, the call is to 
IHCNAMEL, which then calls IHCFIOSH/ 
IHCEFIOS and IHCFCVTH. For DEFINE FILE, 
the call is to IHCDIOSE/IHCEDIOS. For all 
other operations, the call is to IHCFCOMH/ 
IHCECOMH. If the operation is sequential 
READ/WRITE, the IHCFCOMH/IHCECOMH routine 



calls IHCFIOSH/IHCEFIOS (and also IHCFCVTH 
if format control is present) . If the 
operation is REWIND, BACKSPACE, or ENDFILE, 
the IHCFCOMH/IHCECOMH routine calls 
IHCFIOSH/IHCEFIOS. If the operation is 
direct access READ, WRITE, or FIND, routine 
IHCFCOMH/IHCECOMH calls IHCDIOSE/IHCEDIOS 
(and IHCFCVTH if format control is pre- 
sent) . If the operation is STOP with 
message, or PAUSE, routine IHCFCOMH/ 
IHCECOMH calls the supervisor. This flow 
is outlined in Figure 17. For each direct 
access or sequential read/write request, 
the compiler-generated code issues multiple 
calls to IHCFCOMH/IHCECOMH: an initial 
call, one call for each item (either vari- 
able or array) in the I/O list, and a final 
call. Thus, the FORTRAN statement READ 
(23, 100) Z, Y,X results in five consecutive 
calls to IHCFCOMH/IHCECOMH. 
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load module 

operating 
system 



Basic Direct 
Access Methods 



_ . . *lf Format is present 

Figure 17. Control Flow for Input/Output Operations .. Forpre . formatt j ngn ew data sets before writing user's data 
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DEFINE FILE 



The compiler-generated code branches 
directly to IHCDIOSE/IHCEDIOS at entry 
point DIOCS#. This section takes the 
address of the parameter list containing 
the data set characteristics supplied by 
the user and places it in the appropriate 
unit assignment table (IHCUATBL) entry. 
There may be more than one data set defined 
per DEFINE FILE statement, in which case 
DIOCS# loops through the definitions, plac- 
xng the parameter list addresses into the 
tao±e. 

If a data set has been previously 
defined, the new definition is ignored. If 

the data set requested is sequential rather 

than direct, IHCERRM is called with error 

condition 23 5 indicated. If the data set 

is the object error unit, IHCERRM is called 
with error 234 indicated. 

DIOCS# also places the address of the 
section IHCDIOSE/IHCEDIOS that handles 
actual reads and writes--IBCENTRY--into a 
fixed location in IHCFCOMH/IHCECOMH, in 
order to establish addressability for later 
branching.. If the user fails to place his 
DEFINE FILE statement ahead of his asso- 
ciated READ or WRITE statement, this 
address will not be available, and an error 
condition will occur. 

DIOCStt returns to the compiler-generated 
code. 



SEQUENTIAL READ/WRITE WITHOUT FORMAT 



Initial Call 



The initial call is to IHCFCOMH/ 
IHCECOMH, which saves END= and ERR= 
addresses, if they are present, in its 
locations ENDFILE and IOERROR, respective- 
ly, and then branches to IHCFIOSH/IHCEFIOS, 
passing along the data set reference 
number. 

IHCFIOSH/IHCEFIOS uses this data set 
reference number to consult the correspond- 
ing entry in the table IHCUATBL. (This 
table is explained in Figures 18 and 19.) 
The initialization action taken by 
IHCFIOSH/IHCEFIOS depends on the nature of 
the previous operation performed on this 
data set. The previous operation possibi- 
lities are: 

• no previous operation 

• previous operation was read or write 



• previous operation was backspace 

• previous operation was write end of 
file 

• previous operation was rewind 

NO PREV IOUS OPERATION : IHCFIOSH/IHCEFIOS 

must create a unit block, which will con- 
tain the DCB, DECBs, and other library 
information to be used in controlling 
operations. Space for the unit block is 
acquired with ■ a GETMAIN, and a pointer to 
it is stored in the IHCUATBL entry. (The 
contents of the unit block are outlined in 
Figure 20. ) 

IHCFIOSH/IHCEFIOS inserts certain stan- 
dard values, into the DCB in the unit block. 
It does this by moving in a copy of a 
nonfunctioning skeleton DCB, which speci- 
fies DSORG as PS, MACRF as (R,W)* DDNAME as 
FTnnFOOl, and gives addresses in IHCFIOSH/ 
IHCEFIOS for SYNAD and EODAD, and for 
EXLST, which specifies the OPEN exit rou- 
tine. IHCEFIOSH/IHCEFIOS puts the data set 
reference number into the nn field of the 
DDNAME. This establishes for the system 
the connection between this DCB and the 
user's DD card, which must have ;the same 
name on it. 

IHCFIOSH/IHCEFIOS now issues an OPEN 
macro instruction, which merges the user' s 
DD information, and label information if 
the data set already exists. When its open 
exit routine (IHCDCBXE) gains control, 
IHCFIOSH/IHCEFIOS examines the DCB. if 
fields are zero, indicating the user has 
omitted corresponding DD parameters, ; 
IHCFIOSH/IHCEFIOS inserts library ; default ; 
values. (These default values are stored 
in the IHCUATBL entry. ) 

After completion of the OPEN macro, 
IHCFIOSH/IHCEFIOS places the buffer 
address(es) in the housekeeping section of 
the unit block, and also in the DECB(s). 
It also puts the DCB address into the 
DECB(s). If this is a read operation, it 
sets the first byte of the type of input/ 
output request field in the DECB(s) to 
X'80', indicating the reads should be of 
blocksize; if this is a write operation, it 
sets this byte to X'00', indicating the 
writes should be of logical record length. 

If the initialization is for a read 
operation, IHCFIOSH/IHCEFIOS now issues a 
READ macro, with a CHECK, filling the 
buffer. If double buffering is in effect, 
it also issues a second READ macro, to 
begin filling the second 5 buffer. (This 
READ is not checked until IHCFIOSH/ IHCEFIOS 
is entered the next time for this data 
set. ) Control is returned to IHCFCOMH/ 
THCECOMH, along with address and length of 
the data that was read. 
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If the initialization is fbr a' write 
operation/ IHCFIOSH/ IHCEFIOS simply ■ < returns 
to IHCFCOMH/IHCECOMH* passing the address 
and length of the buffer. < The actual 
write operation will not take ! plaice 1 until 
IHCFCOMH/IHCECOMH fills the buffer. ) ■ 

PREVIOUS OPERATION—READ OR WRITE t In this 
case, the data set Is already open and the 
unit block in existence. The DECB is set 
to indicate the proper action (either tead 
or write). if this is a write request, 
control is returned to IHCFCOMH/IHCECOMH 
with buffer address and length. If it is a 
read request, the READ mactb is ife'sued to 
fill the buffer, and the address and length 
of the data that was read is passed back to 
IHCFCOMH/IHCECOMH. 

PREVIOUS OPERATI O N— B ACKSPACE?; "The opera- 
tion is - ' the same as for "Previous 
Operation— Read or write" 1 described above, 
except that priming of buffer (s) may be 
needed. 



PREVIOUS OPERATION — END FILE: 



IHCFIOSH/ 



IHCEFIOS must first close the existing data 
set, and process a new one. To process a' 
new data set, IHCFIOSH/IHCEFIOS increments 
the sequence number of the DDNAME field in ? 
the old DCB; for example* FT1UF001 is 
changed to FTli»F002. The OPEN procedure 
described above under "No Previous opera- 
tion" is then followed. (The library 
assumes the user has a FThnF002 DD Card for 
this new data set.) The usual read or' 
write procedure is used. 

P REV IOUS OPERATION- -REWIND : The data set 

has been closed, ancf must' be reopened. The 
procedure is the same as that described 
under "No Previous Operation, " beginning 
after the creating of the unit block; 

In all of the above cases, IHCFIOSH/ 
IHCEFIOS returns to IHCFCOMH/IHCECOMH/ 
which saves the buffer pointer and length, 
and then returns to the compilers-generated 
code. " ! 



second Call 



The compiler-generated code calls' 
IHCFCOMH/IHCECOMH, passing information 
about the first item in the I/O list (its 
address, type, whether it is a variable' or 
array, etc.). If this is a read, request 
for a variable, IHCFCOMH/IHCECOMH takes the 
proper number of bytes from the buffer arid 
moves them to the indicated addresis. ' For 
an array, IHCFCOMH/IHCECOMH repeats the 
process, filling the array eleihent by ele- 
ment. If this is a write request for a 
variable, IHCFCOMH/IHCECOMH takes the item 
from the indicated address and moves it 



intb' the buffer. For ah atrayj' : ' IHCFCOMH/ 
IHCEGOMH ^repeats the prbcessV emptying the 
aifrafy ielement 1 by element^ ,j After adjusting 
it& ; buffer' pointer" so it points to either 
the r!i hext aata 5 item or the next empty space, 
IHCFCOMH/IHCECOMH returns to the compiler- 
generated code. 



Additional' List Item' Calls 



The procedure is the sattte- as for the 
first list item, with these exceptions. 
When IHCFCOMH/IHCECOMH i& prbcess^cp a read 
request' aftd ! f iJnds it has emptied^ the buff- 
er, it calls IHCFIOSH/IHCEFIOS 'to issue 
another READ macro and refill it. If 
doiible buffering is- in- effect^ iHCFtOSH/ 
IHCEFIOS" ! passfes the ? address* of the other 
buffer (after; 'checking the : READ ■•* macro for 
that buf f erl i ; and then issues a READ macro 
instruction for the buffer just emptied, 
always keeping brie 1 READ ahead; -^ 
:-. -..;■■• .:■..■:■ ■■ i -.■'■: >■> ■ ■a''-< -. ...;.'.. ■ ■ m ><■; 

Wheh' IHCFCOMH'IHCECOMH ; is processing a 
write request and finds it 'ha'S*' 'filled the 
buffer, it calls IHCFIOSH/IHCEFIOS to issue 
the actual WRITE macrb; "If* double buffer 1 
ing is in effect, IHCFIOSH/IHCEFIOS passes 
back the address of the other buffer. 



Final Call 



For a read operation; the main prbgrarti' 
passes control to IHCFCOMH/IHCECOMH 1 which 
passes control on to IHCFIOSH/IHCEFIOS. If 
IHCFIOSH/IHCEFIOS finds that, for this data 
set, physical records are larger than log- 
ical records, it simply returns to 
IHCFCOMH/IHCECOMH, which returns '"to the^ 
compiler-generated object code. If physi- 
cal records are shorter than logical rec- 
ords,' "IHCFIOSH/IHCEFIOS issues READ macros 
until it reaches ' the '"endbf ^ the IbgicSl 
record. This" positions the : device at ■ the 
beginning of the next logical 'record;' in 
preparation for subsequent FORTRAN -READ 
requests for this- unit* 

■'■ iv For^.a ; write operation, IHCFCOMH/IHCECOMH 
giVes : Control to IHCFIOSH/IHGEFIOS; If the 
data set is unblocked, or if it is blocked 
and the buffer is 'full, IHCFIOSH/IHCEFIOS 
issues a final WRITE macro, i / ■ i:^ u 



System Block Modifica tion and Re ferenc e 

While perf armitig ! ■ its* functions, 
IHCFlbsH/IHCEFfos'ma'y modify certain fields 
of the current DCB: 
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DCBBLKSI-- IHCFIOSH/IHCEFIOS changes this 
field before writing out a short 
block when RECFM=FB. IHCFIOSH/ 
IHCEFIOS restores it after issu- 
ing the corresponding CHECK 
macro. 



DCBOFLGS — before issuing a CLOSE (TYPE=T) 
macro to implement an ENDFILE 
request, IHCFIOSH/IHCEFIOS turns 
on the high order bit to make 
this look like an output data 
set. 

IHCFIOSH/IHCEFIOS also modifies some 
fields of the DECB(s), in addition to its 
initialization : 



conditions 219 or 220 — IHCEFIOS 
returns to its original caller at the 
error displacement. (The error displa- 
cement is 2 bytes beyond the address 
originally passed to it in register 0; 
the normal return point is 6 bytes 
beyond the address originally passed in 
register 0. ) 



condition 214 — if user-supplied 
corrective action is indicated or if 
the operation is a read, IHCEFIOS 
ignores the input/output request and 
returns to the error displacement. 
Otherwise, it changes the record format 
to VS and continues execution. 



DECTYPE (byte 1) — for reads, set to indi- 
cate a read of blocksize; for 
writes, set to indicate a write 
of logical record size. 

DECTYPE (byte 2) — set to indicate read or 
write when the previous opera- 
tion for this data set was the 
opposite. 

DECLNGTH— filled in when a U-type record is 
to be written. 

In addition to referring to the DCB and 
DECB(s), IHCFIOSH/IHCEFIOS also examines 
the CSW field in the Input/Output Block 
(IOB) to get the residual count. (The DECB 
points to the IOB. ) By subtracting the 
residual count from the DCB blocksize, 
IHCFIOSH/IHCEFIOS knows the actual length 
of the data read into the buffer. 



Error Conditions 



During their processing of unformatted 
sequential reads and writes, IHCFIOSH/ 
IHCEFIOS and IHCFCOMH/IHCECOMH check at 
various times for a number of error condi- 
tions. IHCFIOSH/IHCEFIOS checks for the 
following error conditions: the user's data 
set reference number is out of IHCUATBL 
range (error 220) ; he failed to supply a DD 
card for the requested data set (error 219) ; 
and he specified anything other than Vari- 
able Spanned (VS) records (error 214); 
IHCFCOMH/IHCECOMH checks each I/O list item 
to see if it exceeds buffer size (error 
213) . If one of these errors is detected, 
control is passed to IHCERRM. 



If extended error handling is in effect, 
control returns from IHCERRM to its caller, 
which does the following: 



condition 213 — IHCECOMH ignores the 
list item request, and any further list 
item requests for this read or write. 



If an end-of-file is detected when 
IHCFIOSH/IHCEFIOS issues a CHECK macro, its 
EODAD routine gains control. It branches 
to the user's END= address if one exists. 
If not, it branches to IHCERRM. Without 
extended error handling, this is a terminal 
error. with extended error handling, con- 
trol returns to IHCEFIOS after error mes- 
sage and traceback printing, and possible 
user corrective action. IHCEFIOS T-closes 
the data set, and returns to its original 
caller at the error displacement. 



If an input/output error is detected 
when IHCFIOSH/IHCEFIOS issues a CHECK 
macro, its SYNAD routine gains control. It 
issues a GETMAIN for extra space, and then 
issues a SYNADAF macro, which puts relevant 
information into the area. (If extended 
error handling exists, IHCEFIOS has the 
associated data set reference number con- 
verted and places it into the error 
message--218. ) IHCFIOSH/IHCEFIOS next asks 
data management to accept the data in 
error, and restart the IOB chain. IHCERRM 
is then called. Without extended error 
handling, the error message and traceback 
are printed, and then IHCERRM branches to 
the user's ERR= address if there is one, 
and to the IBEXIT section of IHCFCOMH if 
there was not. With extended error handl- 
ing, IHCERRM goes to the user's option 
table exit routine if there is one and, in 
any case, prints out the error message and 
traceback. Then it branches to the user's 
ERR= address, if there is one. If not, it 
returns to IHCEFIOS, which continues pro- 
cessing if the user supplied his own corre- 
ctive action; if not, IHCEFIOS returns to 
the error displacement of the routine that 
originally called it. 
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SEQUENTIAL READ/WRITE WITH FORMAT 



These operations are the same as for 
sequential read/write without format, 
except IHCFCOMH/IHCECOMH must scan and 
interpret the associated format specifica- 
tion, and control the conversion and move- 
ment of list items accordingly. 



P rocessing t he Fo rmat Spe cification 



sj kz.vixt*<& o £,Cx ION ; Upon return from the 
initialization section of IHCFIOSH/ 
IHCEFIOS, IHCFCOMH/IHCECOMH begins examin- 
ing the format specification, the address 
of which is passed as an argument in the 
initial branch from the compiler-generated 
code. The format specification may be one 
of two types: one declared in a FORMAT 
statement in the FORTRAN source program; or 
an array that the user has filled in with 
format information during execution (often 
referred to as object-time format specifi- 
cation). In the former case, the compiler 
has already translated the statement into 
an internal code. In the latter, the 
format information exists in its EBCDIC 
form, just as it would in a FORMAT 
statement. 

In the case of an object-time format 
specification, IHCFCOMH/IHCECOMH must pick 
up the array contents and process them so 
they are in the same form as a format 
specification processed by the compiler. 
IHCFCOMH/IHCECOMH does this using the TRT 
instruction and its table TRTSTB. 

The translated format codes, and their 
meanings to IHCFCOMH/IHCECOMH, are listed 
in Table 10. 



In both cases, IHCFCOMH/IHCECOMH now 
begins scanning the format information. It 
reads it — saving the control information 
—■ until it finds the first conversion code 
(or the end of the FORMAT statement). Then 
it exits to the compiler-generated code. 



LIST I TEM CALLS FOR READ REQUEST: When 

IHCFCOMH/ is entered for the first list 
item, it determines from the conversion 
code which section of the conversion rou- 
tine IHCFCVTH to call. It passes informa- 
tion from the format specification, (such 
as scale and width), information about the 
list item (such as its address), and buffer 
address and length. IHCFCVTH, and its 
associated subroutines, do both the conver- 
sion and the moving of the data from buffer 
to list item location or vice versa. 



In general, after a conversion routine 
has processed a list item, IHCFCOMH/ 
IHCECOMH determines whether or not that 
routine can be applied to the next list 
variable or array element (if an array is 
being processed). IHCFCOMH/IHCECOMH 
examines a field count in the format speci- 
fication that indicates the number of times 
a particular conversion code is to be 
applied to successive list variables or 
elements of an array. 



If the conversion code is to be repeated 
and if the previous list item was a vari- 
able, IHCFCOMH/IHCECOMH returns control to 
the main program. The main program again 
branches to IHCFCOMH/IHCECOMH and passes, 
as an argument, the main storage address 
assigned to the next list item. 
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Table 10, Format. Code Translations and Their Meanings (Part 1 of 2) 



|Code After 
J Compiler or 
| IHCFCOMH/ 
Source | IHCECOMH 
FORMAT | Translation 
Code | <in hex) 
_. 4 „ 

beginning of 


n( 


I 04n 


a 


|06a 


nP 


| 08* 


Tn 


| 12n 


nX 


|18n 


•text' 
or nH 


|lAw 



Save location for possible repetition of 
the format codes; clear counters. 



Description 



group count 
(n=l-byte 
value .of 
repeat count; 
set to 1 if no 
repeat count) 

field count 
<a=l-byte 
value of 
repeat count) 

scaling factor 

column reset 

<n=l i -byte 

value) 

skip or blank 

<n=l-byte 

value) 

literal data 



Type 



control 
control 



control, 

control 
control 

control 

control 



Corresponding Action by, IHCFCOMH/ IHCECOMH 



save n and location of left parenthesis 
for possible repetition of the format 
codes in the, group. 



Save a for repetition of format code ^that 
follows. . 



Save n for use by F, Ei and, D c^yersjLpns. 

Reset current position within record "','', 
nth column Q.r byte. 



Skip n characters of an input record, or 
insert n blanks in an output record. 



Move w characters from an input record to, 
the FORMAT statement, op w characters from 
the FORMAT statement to an output record; 



Notes: * is a 1-byte value of n, if n was positive; if negative, it is the value plus 
128(decimal). ~" 

w = 1-byte value of field width, 
d = 1-byte value of number of digits after the decimal point. 
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Table 10, 
r — -T- 



Source 
FORMAT 
Code 



Format Code Transitions and Their Meanings (Part 2 of 2) 



Cod£ After - 
Compiler or 
IHCFCOMH/ 
IHCECOMH 
Translation 
■tin hex) 



\ 
Description '{Type 



r : ■■■■■■=■■ ■' ■■■•■- 

| -,:i 

| Corresponding Action by IHCFCOMH/ IHCECOMH 



Fw.d 

Ew.d 

Dw.d 

Iw 

Aw 

GW.d 

Lw 

Zw 

) 



OA w.d 
OC w.d 
OE w.d 
10 w 
14 w 
20 w.d 
16 w' 
24 w 

1C 



IE 



j conversion | IHCFCOMH/IHCECOMH passes the values of w, 
j conversion j d ! and p_ --plus '"information about the 1 is t 
jcbhversionj item arfd the buffer — to the appropriate 
j conversion I section of IHCFCVTH 'for conversion, 
j conversion j 

|conversion| ■ 

|conversion| ■'■'■■ ^ : •>'• 
j coriver s 1 ion | : 

I ' P : " ;."''.■=■.'■■■ 

I control I Test group 1 dount. if it is greater than 
| ; ."'■' |1» repeat;-'' format codes in group; othef- 
' I I wise, continue to process FORMAT statement 

j j from current position. 

- - ■■■•_■ |- 1 .-•.* 

record end | control | Input or output one record using IHCFIOSH/ 
1 I IHCEFIOS/ and READ/WRITE macro 

j j instruction. 



F-conversion 
E -eonvers i ori 
D- conversion 
I- con ver s ion 
A-cohversioh 
G-conversion 
L- eonvers ion 
Z-conversion 

group end 



end of 
statement 



I control 



I If no I/O list items remain to be 
J transmitted, return control to load module 
I to link to the closing section; if I/O 
I'list items remain, read or write one 
j record using input/output interface and 
I the READ/WRITE macro instruction. Repeat 
jformat codes from last parenthesis. 

I Notes : * is a 1-byte value of n, if n was positive; if negative, it is the value plus | 
128(decimal>. 
w = 1-byte value of field width, 
d = 1-byte value of number of digits after the decimal point. 



If the conversion code is to be repeated 
and if an array is being processed* 
IHCFCOMH/IHCECOMH computes the main storage 
address of the next element in the array. 
The conversion routine that processed the 
previous element is then given control. 
This procedure is repeated until either all 
the array elements associated with a spe- 
cific conversion code are processed' or end 
of logical record is detected (error 212). 
In the latter case, control is passed to 
IHCERRM. 

If the conversion code is not to be 
repeated, control is passed to the scan 
portion of IHCFCOMH/IHCECOMH to continue 
the scan of the format specification. If 
the scan portion determines that a group of 
conversion codes is to be repeated, the 
conversion routines cor responding to those 
codes are applied to the next portion of 
the input data. This procedure is repeated 



until either the group count is exhausted 
or the input data for the READ statement is 
exhausted. 

If a group of conversion codes is not to 
be repeated and if the end of the format 
specification is not encountered, the next 
format code is obtained. For a control 
type code, control is passed to the asso- 
ciated control routine to perform the indi- 
cated operation. For a conversion type 
code, control is returned to the compiler- 
generated code if the previous list item 
was a variable. The compiler- generated 
code again branches to IHCFCOMH/IHCECOMH 
and passes, as an argument, the main 
storage address assigned to the next list 
item. Control is then pasised to the conv- 
ersion routine associated with the new 
conversion code. The conversion routine 
then processes the data for this list item. 
If the data that was just converted was 
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placed into an element of an array and if 
the entire array has not been filled, 
IHCFCOMH/IHCECOMH computes the main storage 
address of the next element in the array 
and passes control to the conversion rou- 
tine associated with the new conversion 
code. The conversion routine then pro- 
cesses the data for this array element. 

If, in the midst of its processing, 
IHCFCOMH/IHCECOMH finds that it has emptied 
the buffer it calls IHCFIOSH/IHCEFIOS to 
issue another READ macro instruction. 

II the oudn portion encounters the end 
of the format specification and if all the 
list items are satisfied, control returns 
to the next sequential instruction within 
the compiler-generated code. This instruc- 
tion (part of the calling sequence to 
IHCFCOMH/IHCECOMH) branches to the closing 
section. If all the list items are not 
satisfied, control is passed to the input/ 
output interface to read (via the READ 
macro instruction) the next input record. 

LIST ITEM CALLS FOR WRITE REQUEST : 
IHCFCOMH/IHCECOMH processing is similar to 
that for a read request. The main dif- 
ference is that the conversion routines 
obtain data from the main storage addresses 
assigned to the list items rather than from 
an input buffer. The converted data is 
them transferred to an output buffer. If 
all the list items have not been converted 
and transferred prior to the encounter of 
the end of the format specification, con- 
trol is passed to the IHCFIOSH/IHCEFIOS 
routine. IHCFIOSH/IHCEFIOS writes (via 
the WRITE macro instruction) the contents 
of the current output buffer onto the out- 
put data set. 

Formatting control for the remaining 
list items is then resumed at the group 
count of the left parenthesis corresponding 
to the last preceding right parenthesis, 
or, if none exists, from the first left 
parenthesis. 

If IHCFCOMH/IHCECOMH detects an error in 
the format specification (condition 211), 
it calls IHCERRM. Standard corrective 
action in the case of extended error handl- 
ing is to treat the invalid character as a 
terminal right parenthesis and continue 
execution. 

CLOSING SECTION: If the operation is a 
read request, the closing section simply 
returns control to the main program to 
continue execution. If the operation is a 
write requiring a format, the closinq sec- 
tion branches to the IHCFIOSH/IHCEFIOS 
routine. IHCFIOSH/IHCEFIOS writes (via the 
WRITE macro instruction) the contents of 
the current input/output buffer (the 
final record onto the output data set. 



IHCFIOSH/IHCEFIOS then returns control to 
the closing section. The closing section, 
in turn, returns control to the compiler- 
generated code. 



DIRECT ACCESS READ/WRITE WITHOUT FORMAT 



Unformatted reading and writing for 
direct access data sets is handled by 
IHCFCOMH/IHCECOMH and IHCDIOSE/IHCEDIOS. 
The procedure is similar to that for 
sequential data sets. The compiler- 
generated object code calls IHCFCOMH/ 
IHCECOMH once for initialization, once for 
closing, and once in between for each item 
(variable or array) in the I/O list. 
IHCFCOMH/IHCECOMH calls IHCDIOSE/IHCEDIOS 
once for initialization, once for closing 
(if it is a write request), and as many 
times in between as the input/output data 
requires. The actions of IHCFCOMH/IHCECOMH 
are identical to those for sequential 
unformatted read and write operations. The 
only exception is that IHCDIOSH/IHCEDIOS is 
called in place of IHCFIOSH/IHCEFIOS. 



Initialization Branch 



When IHCDIOSE/IHCEDIOS is given control, 
it checks the entry in IHCUATBL correspond- 
ing to the indicated data set reference 
number to see if the data set has been 
opened. If not, IHCDIOSE/IHCEDIOS con- 
structs a unit block for that data set in 
an area acquired by a GETMAIN, and places a 
pointer to it in the IHCUATBL entry. (This 
unit block, which is slightly different 
from ones created by IHCFIOSH/IHCEFIOS, is 
diagrammed in Figure 21. ) 

IHCDIOSE/IHCEDIOS next reads the Job 
File Control Block (JFCB) via a RDJFCB 
macro instruction. The appropriate fields 
in the JFCB are examined to determine if 
the user included a request for track 
overflow and a BUFNO subparameter in his DD 
statement for this data set. If he did, 
they are inserted into the DCB skeleton in 
the unit block. If BUFNO was not included 
or was other than 1 or 2, a value of 2 is 
inserted in the DCB skeleton. IHCDIOSE/ 
IHCEDIOS next examines the data set dispo- 
sition field of the JCFB. If the data set 
is new and the requested operation is a 
write, IHCDIOSE/IHCEDIOS must first format 
the data set before it can do the actual 
writing. 

FORMATTING A NEW DATA SET: IHCDIOSE/ 

IHCEDIOS modifies the JFCB so that the 
disposition is old, and fills in the fol- 
lowing fields in the DCB in the unit block: 
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DCB_Field 

BUFNO 

NCP 

DSORG 

MACR 

OPTCD 



DDNAME 



Setting of field before OPEN 
X'02* Two buffers" 
X'02 1 Two DECBs 
X'UO" Set for DSORG=PS 
X»0020 l Normal BSAM WRITE 
Set to X'OO' or X*20' 
depending upon whether 
chained scheduling was not 
or was specified on the DD 
card as obtained from the 
JFCB. 

Set to FTnnFOOl, where 'nn' 
is the DSRN. 



Then an OPEN macro instruction, using BSAM, 
■Jo -icQuori (type=J). The record length 
field, buffer address field, and DCB 
address field are filled in the DECB' s. 
Then IHCDIOSE/IHCEDIOS issues sufficient 
WRITE macro instructions for fixed 
unblocked blank records to format the 
track(s). Record length and number speci- 
fications are taken from the DEFINE FILE 
parameter list pointed to by IHCUATBL. 

The TRBAL field is used during BSAM 
writing to calculate whether there is 
enough room on the track for additional 
records after it has written the required 
number of fixed-length records. If the 
track is not full, data management does not 
create an RO record and the OS utilities 
cannot process the data set. Therefore, if 
the track is not full, the library writes 
as many extra records as necessary until 
the track is complete. 

The data set is then closed. The DCB is 
modified in the following way in order that 
it may be re- opened for BDAM and the actual 
writing. 



DCB Field 


New Setti 


nq for BDAM OPEN 


NCP 


X»00' 


Reset for BDAM 


DSORG 


X'02' 


DSORG=DA 


MACR 


X'29' 


BDAM update 
and check 


MACR + 1 


X^S' 


BDAM WRITE by ID 


OPTCD 


X'Ol' 


BDAM relative 
block address. 



The procedure then is the same 
an old data set (see below). 



opening 



OPENING A D ATA SET WHOSE DISPOSITION IS 

OLD ; The data set is opened for BDAM, with 
the UPDAT option. In its open exit rou- 
tine, IHCDIOSE/IHCEDIOS supplies default 
values (from the IHCUATBL entry) for those 
omitted by the user. After the open, 
IHCDIOSE/IHCEDIOS inserts into the DECB's 
the address (es) of the buffer (s) obtained 
during control block opening. 

After doing this, or if the data set is 
already opened, IHCDIOSE/IHCEDIOS performs 
the following actions: 



• Write: Upon initial branch, IHCDIOSE/ 
IHCEDIOS does no writing at this time, 
but only fills the buffer with zeros 
and passes buffer address and buffer 
length back to IHCFCOMH/IHCECOMH so the 
latter may begin moving in the list 
items. 

• Read ; Upon initial branch, IHCDIOSE/ 
IHCEDIOS gets the relative record numb- 
er requested by the user, which has 
been passed along by IHCFCOMH/IHCECOMH. 
IHCDIOSE/IHCEDIOS examines the buffer 
to see if the record is already pre- 
sent. (This will be the case if the 
user previously requested a FIND for 
this record.) If not present, 
IHCDIOSE/IHCEDIOS issues a READ macro 
and, in either case issues a CHECK. 
After updating the associated variable 
in the parameter list to point to the 
record following the one just read, 
IHCDIOSE/IHCEDIOS returns to IHCFCOMH/ 
IHCECOMH, passing the buffer address 
and length. 



Successive Entries for List Items 



WRITE OPERATION: When IHCFCOMH/IHCECOMH 

has filled the buffer with list items, it 
branches to IHCDIOSE/IHCEDIOS indicating a 
write request. IHCDIOSE/IHCEDIOS obtains 
the relative record number from the para- 
meter list passed along by IHCFCOMH/ 
IHCECOMH, and writes the record out via a 
WRITE macro instruction. It updates the 
associated variable in the parameter list 
to point to the record following the one 
just written. If single buffering is being 
used, it checks the write and returns to 
IHCFCOMH/IHCECOMH. If double buffering is 
being used, it postpones the check until 
its next call, and returns the address of 
the other buffer to IHCFCOMH/IHCECOMH. 



READ OPERATION: 



IHCDIOSE/IHCEDIOS handles 
requests from IHCFCOMH/ 



any further read 

IHCECOMH exactly as for the first (without 

checking for the data set being open) . 



Final Branch 



WRITE OPERATION : IHCFCOMH/IHCECOMH calls 
IHCDIOSE/IHCEDIOS to write out the final 
buffer. 

READ OPERATION ; IHCFCOMH/IHCECOMH returns 
to the compiler-generated code without 
calling IHCDIOSE/IHCEDIOS. 
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Error Conditions 



READ AND WRITE USING NAMELIST 



If IHCDIOSE/IHCEDIOS detects an input/ 
output error condition, it performs in a 
manner similar to IHCFIOSH/IHCEFIOS by 
issuing a SYNADAF macro, using the resul- 
tant information to build a 218 error 
message, and passing control to IHCERRM. 

IHCDIOSE/IHCEDIOS will also identify at 
one time or another the following error 
conditions: 

231 — the data set indicated by the 

caller is sequential rather than 

direct. 
232 — the record number requested is 

out of data set range. 
233--the indicated record length 

exceeds 32K-1. 
236 — -the read requested is for an 

uncreated data set. 
237 — the specified record length is 

incorrect. 

In all these cases, IHCDIOSE/IHCEDIOS sets 
up the error message data and passes con- 
trol to IHCERRM. 



DIRECT ACCESS READ/WRITE WITH FORMAT 



Requests for direct access reads and 
writes with format are handled by IHCFCOMH/ 
IHCECOMH, with the assistance of IHCDIOSE/ 
IHCEDIOS and IHCFCVTH. The actions of 
IHCDIOSE/IHCEDIOS are exactly the same as 
for unformatted direct access reads and 
writes. The actions of IHCFCOMH/IHCECOMH 
are exactly the same as for sequential read 
and write requests with format, except it 
calls IHCDIOSE/IHCEDIOS instead of 
IHCFIOSH/IHCEFIOS. 



FIND 



Implementation of the FIND statement is 
very similar to implementation of the open- 
ing branch for a direct access read 
(explained above) . Control is passed from 
the compiler-generated code to IHCFCOMH/ 
IHCECOMH and on to IHCDIOSE/IHCEDIOS. 
IHCDIOSE/IHCEDIOS opens the data set if 
need be, and then checks to see if the 
record is already in the buffer. If it is, 
IHCDIOSE/IHCEDIOS updates the associated 
variable. If not, it issues a READ macro. 
Then it returns through IHCFCOMH/IHCECOMH 
to the compiler- generated code. This READ 
begins filling the buffer. It is not 
checked until the next entry to IHCDIOSE/ 
IHCEDIOS for this data set. 



Namelist reading and writing is handled 
by IHCNAMEL, with the. assistance of 
IHCFIOSH/IHCEFIOS and IHCFCVTH. The 
compiler-generated object code branches 
only once to IHCNAMEL (to entry point 
FRDNL# for reads and to entry point FWRNLtf 
for writes), passing the address of the 
namelist dictionary containing the user's 
specifications. IHCNAMEL uses this dic- 
tionary information to direct its opera- 
tions, calling IHCFIOSH/IHCEFIOS to do the 
actual reading or writing, and the appro- 
priate sections of IHCFCVTH to convert data 
and move it from buffer to user area or 
vice versa. 

From the point of view of IHCFIOSH/ 
IHCEFIOS and IHCFCVTH, a namelist read or 
write is no different than any other for- 
matted sequential read/write operation. 
IHCNAMEL calls IHCFIOSH/IHCEFIOS once to 
initialize the data set and once to close 
it, and as many times in between to read or 
write as the namelist data requires. 
IHCNAMEL calls IHCFCVTH as many times as 
the namelist data requires. 



which is the 

user's NAMELIST 

2 -word namelist 

ied and padded to 

as many entries 

NAMELIST defini- 

of entries : one 

for arrays. They 

on 1, "Namelist 



The namelist dictionary 
compiled version of the 
statement, consists of a 
name field (right- justif 
the left with blanks), and 
as there were items in the 
tion. There are two types 
for variables, and one 
are illustrated in Secti 
Tables. " 



Read 



IHCNAMEL first stores the END= and ERR= 
addresses, if they exist, in the proper 
locations in IHCFCOMH/IHCECOMH. This makes 
them available to IHCFIOSH/IHCEFIOS and 
IHCERRM if end-of-file or an input/output 
error occur. 

IHCNAMEL searches through the data read 
by IHCFIOSH/IHCEFIOS looking for the name- 
list name that is located in the dic- 
tionary, when it locates the namelist 
name, it picks up the next data item. It 
now searches through the dictionary 
entries, looking for a matching variable or 
array name. When the name is located, 
IHCNAMEL obtains the associated specifica- 
tion information in that entry. 

Processing of the constant in the input 
data now begins. Each initialization con- 
stant assigned to the variable or an array 
element is obtained from the input record. 
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The appropriate conversion routine is 
selected according to the type of the 
variable or array element. Control is then 
passed to the conversion routine to convert 
the constant and to enter it into* its 
associated variable or array element. 

Note; One constant is required for a 
variable. A number of constants equal to 
the number of elements in the array is 
required for an array. A constant may be 
repeated for successive array elements if 
appropriately specified in the input 
record. 

The process is repeated for the second 
and subsequent names in the input record. 
When an entire record has been processed, 
the next record is read and processed. 

Processing is terminated upon recogni- 
tion of the 6END record. Control is then 
returned to the calling routine within the 
load module. 



Write 



IHCNAMEL takes the namelist name from 
the dictionary, puts it in the buffer, and 
has IHCFIOSH/IHCEFIOS write it out. The 
processing of the variables and arrays 
listed in the dictionary then begins. 

The first variable or array name in the 
dictionary is moved to an output buffer 
followed by an equal sign. The appropriate 
conversion routine is selected according to 
the type of variable or array elements. 
Control is then passed to the conversion 
routine to convert the contents of the 
variable or the first array element and to 
enter it into the output buffer. A comma 
is inserted into the buffer following the 
converted quantity. If an array is being 
processed, the contents of its second and 
subsequent elements are converted, using 
the same conversion routine, and placed 
into the output buffer, separated by com- 
mas. When all of the array elements have 
been processed or if the item processed was 
a variable, the next name in the dictionary 
is obtained. The process is repeated for 
this and subsequent variable or array 
names. 



Error COnditi ons 



IHCNAMEL calls IHCERRM if it cannot find 
a name in the dictionary (error 222), if a 
name exceeds permissible length (221), if 
it cannot locate- the required equal sign in 
the input: data (223), of if a subscript is 
included for a variable or is out of range 
for an array (224). 



STOP AND PAUSE (WRITE- TO- OPERATOR) 



StO£ 



Control is passed by the compiler- 
generated code to the FSTOP section of 
IHCFCOMH/IHCECOMH^ This section determines 
if there is a- user message attached. if 
not, it simply branches to the IBEXIT 
section of IHCFCOMH/IHCECOMH to terminate 
load module execution. If there is a 
message, the FSTOP section issues the mes- 
sage to the console via SVC 35. It then 
branches to the IBEXIT section to terminate 
load module execution. 



Pause 



Control is passed by the compiler- 
generated code to the FPAUS section of 
IHCFCOMH/IHCECOMH. FPAUS issues a SVC 3 5 
including the user's message or identifier, 
or "00000" if there was none. It then 
issues a WAIT to determine when the reply 
has been transmitted. After the operator 
or terminal user replies, IHCFCOMH/IHCECOMH 
returns control to the compiler-generated 
code. 



BACKSPACE 



Control is passed from the compiler- 
generated code to the FBKSP section of 
IHCFCOMH/IHCECOMH, which passes control to 
IHCFIOSH/IHCEFIOS. 



If, at any time, the record length is 

exhausted, the current record is written 

and processing resumes in the normal 
fashion. 

When the last variable or array has been 
processed, the contents of the current 
record are written, the characters SEND are 
moved to the buffer and written, and con- 
trol is returned to the calling routine 
within the load module. 



For unblocked records, IHCFIOSH/IHCEFIOS 
issues a physical backspace (BSP) to posi- 
tion to the desired record. If 2 buffers 
are used, it ' must backspace twice to 
account for having read a record ahead. 
Before backspacing an output data set all 
WRITE requests are checked and an endf ile 
mark is written by issuing a T-CLOSE. If 
the record form is V, it reads the record 
and examines the Segment Descriptor Word to 
determine if it has found the first seg- 
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ment. If it has, it issues another back- 
space. If it has not found the first 
segment, 2 backspaces are issued until the 
first segment is obtained, in which case it 
need only issue a final backspace. 

For FB and VB records it must keep track 
of the location within the block of the 
record it wants. For the case of blocked 
records a BACKSPACE statement does not 
necessarily imply issuing a physical back- 
space request. A physical backspace is 
only required when the preceding logical 
record desired is in the block preceding 
the block presently in the buffer. 
IHCFIOSH/IHCEFIOS determines the length of 
the block read by subtracting the residual 
count in the CCW from the DCB blocksize. 
This information is used in calculating the 
proper logical record in the buffer to 
satisfy the FORTRAN BACKSPACE. Spanned 
records may require searching back through 
more than one physical record* 

Control is returned to IHCFCOMHY 
IHCECOMH, which returns to the main 
program. 



REWIND 



The compiler-generated object code 
passes control to the FRWND section of 
I HCFCOMH/ IHCECOMH, which passes control to 
IHCFIOSH/IHCEFIOS. 

IHCFIOSH/IHCEFIOS issues a CLOSE macro 
with the REREAD option for the indicated 
data set. This has the effect of rewinding 
it. A FREEPOOL macro is issued to release 
the buffer space. Control returns through 
IHCFCOMH/IHCECOMH to the main program. 



ERROR HANDLING 



The library is designed to handle the 
following error conditions: 

• some compiler- detected source statement 
errors 



• library-detected errors 

• some program interrupts 
load module 



scheduled 
termination 



abnormal 



• some user-defined and user-detected 
errors (only if extended error handling 
has been selected) 

Library operations for interrupts and for 
errors it detects itself depend on whether 
the extended error handling facility was 
selected at program installation time. 

The following library modules are con- 
cerned primarily with error handling: 

• IHCADJST 

• IHCERRM 

• IHCFINTH/IHCEFNTH 

• IHCFOPT 

• IHCIBERH 

• IHCSTAE 

• IHCTRCH/IHCETRCH 

• IHCUOPT 

In addition, IHCFCOMH/IHCECOMH is used for 
initialization, loading, and termination; 
IHCFCVTH is used for converting error mes- 
sage data; and IHCFIOSH/IHCEFIOS is used 
for printing error messages out. 



END- FILE 



Control is passed by the compiler- 
generated object code to the FEOFM section 
of IHCFCOMH/IHCECOMH, which passes control 
to IHCFIOSH/IHCEFIOS. 

If the previous operation for this data 
set was a read, IHCFIOSH/IHCEFIOS sets the 
DCBOFLGS bit to dummy a write operation. 
It issues a CLOSE macro with type T. This 
effects the writing of the end-of-file 
mark. (A 'T-CLOSE 1 rather than a full 
CLOSE is issued in order to handle any 
subsequent BACKSPACE requests. ) A FREEPOOL 
macro is issued to release the buffer 
space. Return is through IHCFCOMH/IHCECOMH 
to the compiler-generated code. 



COMPILER- DETECTED ERRORS: IHCIBERH 



when the compiler examines and trans- 
lates the user's source statements, it may 
recognize one to be faulty, and nonexecut- 
able. At the corresponding location in the 
object code, the compiler inserts a branch 
to the library program IHCIBERH. The load 
module then executes in its usual fashion 
up to this point, when IHCIBERH gains 
control . 

If the faulty statement has an Internal 
Statement Number (ISN), IHCIBERH translates 
it into hexadecimal and inserts it into its 
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error message — 230. It also picks up the 
name of the user routine containing the 
faulty statement, and adds it to the mes- 
sage. After IHCERRM is utilized to have 
the message printed out, IHCIBERH goes to 
the IBEXIT section of IHCFCOMH/IHCECOMH to 
have load module execution terminated. 



PROGRAM INTERRUPTS 



Part of the library's initialization 
procedure is to issue a SPIE macro instruc- 
Lion, informing the system that the library 
wishes to gain control when certain program 
interrupts occur. The SPIE, issued by 
IHCFCOMH/IHCECOMH, specifies library con- 
trol for the following interrupts: 

6- -specification* 

9 — fixed-point divide 
11 — decimal divide 
12-- exponent overflow 
13 — exponent underflow 
15 — floating-point divide 

The exit routine address specified for all 
of the above is ARITH#, the beginning of 
IHCFINTH/IHCEFNTH. (If interrupts 2, 3, 4, 
5, or 7 occur for the load module, the 
system begins abnormal termination proces- 
sing. Codes 8, 10 and 14 are disabled when 
the task gains control, so these interrupts 
never occur. ) 

IHCFINTH/IHCEFNTH receives control from 
the system, which passes the address of the 
Program Interrupt Element (PIE) in register 
1. IHCFINTH/IHCEFNTH first saves the 
interrupted program's registers 3-13 (the 
system saves only 14-2 in the PIE). 
IHCFINTH/IHCEFNTH next examines the old 
Program Status Word (PSW) in the PIE to see 
if the interrupt was precise or imprecise, 
and, if the latter, whether single or 
multiple. (Imprecise interrupts are 
explained more fully in the publication IBM 

System/360 Operating System: Supervisor 

and Data Manage ment Services, Order No. 

GC28-6646.) This information~is inserted 
in the error message--210. The specific 
interrupt type(s) is then determined. 



Action for Interrupts 9, 11, 12, 13, and 15 



IHCFINTH/IHCEFNTH sets the switch OVFIND 
or DVCIND in IHCFCOMH/IHCECOMH to indicate 
that one of the three divide checks or 



♦Issued only if the user selected the 
boundary alignment option at program 
installation time. 



exponent overflow or underflow has 
occurred. (These switches are referenced 
by the routines IHCFOVER and IHCFDVCH. ) 
When extended error handling is not in 
effect, IHCFINTH takes the following corre- 
ctive actions: 

9 — nothing 

11 — nothing 

15--if the operation is 0.0/0.0, the 
answer register(s) is set to 0.0; 
if the operation is X.Y/0.0 
(X. Y*0.0), the answer register (s> 
is set to the largest possible 
floating-point number 

12 — the result register (s) is set to 
the largest possible floating-point 
number 

13 — the result register(s) is set to 
0.0; if the underflow resulted from 
an add or subtract operation, the 
condition code in the old PSW is 
set to 0. 

Note that for corrective actions with 12, 
13, and 15, it is necessary for IHCFINTH to 
first determine if the faulty instruction 
contains single or double precision 
operands. 

IHCFCVTH is called (twice) to convert 
the error message contents, and IHCFIOSH is 
called to print it out. Then IHCFINTH 
returns to the system interrupt handler, 
and load module execution eventually 
resumes at the instruction following the 
one that caused the interrupt. " 

When extended error handling has been 
selected, IHCERRM is called to determine if 
the user desires his own corrective action 
for this error. (This procedure is 
described in the section "Extended Error 
Handling" below. ) If no user action is 
specified, the standard actions described 
above are followed. In either instance, 
IHCERRM has the error message printed out. 



Action_f or_Interrupt_6 



When a specification interrupt has 
occurred, IHCFINTH/IHCEFNTH loads IHCADJST, 
if not already loaded. After preparing the 
error message, it branches to INCADJST 
passing the PIE and other information. 

There is a great variety of error condi- 
tions that can cause a specification inter- 
rupt. (They are explained in the publica- 
tion IBM System/360: Pri nciples of Opera- 
tion, Order No. A22-6821. ) IHCADJST is 
designed to correct only one — the misalign- 
ment of operand data in core. For any 
other condition, IHCADJST causes an abnor- 
mal termination by cancelling the SPIE, 
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backing up the PSW pointer to the instruc- 
tion that caused the original interrupt, * 
and returning to the system. 

When IHCADJST determines that it has a 
data boundary alignment problem to correct, 
it calls IHCFINTH/IHCEFNTH to have the 
error message (210) written out. Next 
IHCADJST issues a new SPIE, for protection 
(4) and addressing (5) exceptions, so that 
if an interrupt occurs while it is trying 
to fetch a copy of the operand data, its 
own special section — PAEXCPT--will gain 
control. If one of these exceptions does 
occur, PAEXCPT calls IHCFINTH/IHCEFNTH to 
have the error message written, and then 
causes abnormal termination as described 
above. 

After IHCADJST has properly aligned the 
data in a temporary storage location and is 
ready to try to re-execute the original 
instruction, it issues yet another SPIE 
(overlaying the previous) for interrupts 4, 
7, 9, 11, 12, 13, and 15. If re-execution 
of the original instruction is successful, 
and the Rl field of the instruction re- 
executed was 14, 15, 0, or 1, IHCADJST puts 
the new contents of that register into the 
PIE. If the condition code was changed by 
the re-execution, the new condition code is 
put into the PSW located in the PIE. If 
the instruction re-executed was a ST, STE, 
or STD, the data is moved to the correct 
location in the load module. The original 
load module SPIE is re-established, and 
control is returned directly to the super- 
visor, rather than via IHCFINTH/IHCEFNTH. 
Note that the correction of data misalign- 
ment is only temporary; the permanent loca- 
tions of user variables remain the same. 

If re-execution of the original instruc- 
tion causes a second interrupt, control is 
given to EXCPTN in IHCADJST. For code 7, 
IHCFINTH/IHCEFNTH is called to have the 
error message written, and IHCADJST then 
causes abnormal termination in the manner 
described above. For the other exceptions, 
the original PIE is reconstructed, the 
original SPIE re-established, and* control 
passed back to IHCFINTH/IHCEFNTH to process 
this new interrupt in its usual fashion. 



LIBRARY- DETECTED ERRORS 



A number of the library routines 
examine their operational data for flaws. 



For example-, most of the mathematical rou- 
tines check to see if the arguments are 
within specified ranges; IHCFCVTH, in some 
cases, sees whether the data it is asked to 
convert is actually in the form specified. 

When a library routine finds an error, 
it sets up a branch to IHCERRM. If 
extended error handling has been selected 
for the library, this is a separate module. 
If not, it is simply the entry point name 
f r module IHCTRCH (and module IHCERRM does 
not exist). Without extended error han- 
dling, library-detected errors are almost 
always treated asi terminal conditions. 



Without Extended Error Hand ling 



IHCTRCH is passed the number of the 
error condition and the message if one is 
to be printed for this particular case.* 
IHCTRCH' s functions are to have the error 
message printed and, more significantly, to 
create the traceback map and have it 
printed. IHCTRCH employs IHCFCVTH to con- 
vert information to printable decimal and 
hexadecimal format, and IHCFIOSH to do the 
actual printing. Then IHCTRCH calls the 
I BEX IT section of the IHCFCOMH to terminate 
load module execution. Condition 218 is an 
exception if the user has specified an ERR= 
parameter on his READ source statement. In 
this case, IHCTRCH picks up this address 
from IHCFCOMH and passes control to it. 

The traceback information printed con- 
sists of routine names in the load module 
internal calling sequence, the ISN of each 
branch instruction, and each routine's 
registers 14-1. In most cases, the map 
begins with the routine that called the 
library module that detected the error, 
then lists the routine that called that 
caller, and so on back to the compiler- 
generated main program. In the case of the 
mathematical routines, however, the trace- 
back map begins with that mathematical 
routine detecting the error. IHCTRCH gets 
the map information by using register 13 as 
a starting point and working its way back 
through the linked save areas. Because 
some library routines (e.g., IHCFCOMH) do 
not use standard saving procedures, the 
tracing can become rather complicated. 

IHCTRCH terminates the trace when it 
finds it has done one of three things; 

1. reached the compiler- generated main 
routine 



*In the case of instruction misalignment, 
when it is determined the next instruction 
is also misaligned and will cause abnormal 
termination just as well, the PSW pointer 
is not changed. 



♦Errors 211-214, 217, 219, 220, and 231-237 
have only IHCxxxI printed out, without any 
text. 
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2. reached 13 levels of call, 

3. found a calling loop 

In the second and third cases, it prints 
'TRACEBACK TERMINATED' , and in all cases 
prints the main program entry point. 

IHCTRCH goes immediately to the IBEXIT 
section of IHCFCOMH for termination if it 
is entered a second time.. This can happen 
if an input/output error occurs while 
IHCFIOSH is trying to print IHCTRCH 's 
output » 



Codes 4 and 12 



After using IHCFCVTH to convert the 
abnormal termination code (either system or 
user) and the load module PSW into hexade- 
cimal, IHCSTAE inserts them into its error 
messages (240), and issues the messages via 
WTO macro instructions. Then it returns to 
the supervisor, indicating (with a in 
register 15) the abnormal termination is to 
be completed. 



With Extended Error Handling 



When a library routine detects an: error 
and extended error handling is available, 
it branches to the error monitor routine 
IHCERRM. The operation of this routine is 
explained below in the section "Extended 
Error Handling Facility." 



ABNORMAL TERMINATION PROCESSING 



When the load module has been scheduled 
by the system for abnormal termination, the 
library attempts to have any output buffer 
contents written out. 

During load , module initialization, 
IHCFCOMH/IHCECOMH issues a STAE macro, spe- 
cifying that if the load module is ever 
scheduled for abnormal termination, the 
address EXITRTNl in IHCFCOMH/IHCECOMH 
should be given control by the system. 

When EXITRTNl does gain control, it 
loads IHCSTAE from the . link library and 
branches to it, passing along the system 
input/output status codes it received. 
These are: 



Code (in 
Register 6) 




12 



Meaning 
Active input/output was 
guiesced and is restorable 

Active input /output was 
halted and is not restorable 

No active input/output at 
abnormal termination time 

No space available for work 
area 



Codes and 8 



After using IHCFCVTH to convert the 
abnormal termination code (either system or 
user) and the load module PSW into hexade- 
IHCSTAE inserts them into its mes- 
Then, IHCSTAE returns to the super- 
indicating with a 4 in register 15 
retry attempt (RETRY in IHCSTAE) is 
When this section gains control, 



IHCSTAE looks at this code and deter- 
mines which action it will take. 



cimal, 
sages, 
visor, 
that a 
wanted. 

it first issues another STAE macro instruc- 
tion specifying a new exit routine, so that 
in the event of a new abnormal termination 
condition arising, looping will not occur. 
Next, the system's STAE work area is tested 
to see whether there is active restorable 
input/output or no input/output active at 
all. If the former, SVC 17 is issued 
(RESTORE macro) to prepare for the resump- 
tion of the load module's input/output 
activity. 

In both cases, IHCERRM is called to 
print message 240 and a traceback map. 
Before calling IHCERRM, however, IHCSTAE 
searches through the chained save areas 
(beginning with the supervisor's) to deter- 
mine whether or not the abnormal termina- 
tion condition will prevent the traceback 
map from listing the routine causing the 
abnormal termination; if it will, IHCSTAE 
appends a statement to this effect in its 
error message. 

If extended error handling is not in 
effect, IHCTRCH (entry point IHCERRM) exits 
to the IBEXIT section of IHCFCOMH/IHCECOMH. 
If extended error handling is in effect, 
IHCERRM returns to IHCSTAE, which calls the 
IBEXIT section of IHCFCOMH/IHCECOMH. , The 
IBEXIT section calls IHCFIOSH/IHCEFIOS to 
complete pending output reguests — that is, 
flush the buffers. (This is the normal 
load module termination process. ) 
IHCFCOMH/IHCECOMH finally returns to the 
supervisor. 

In the event of a second abnormal ter- 
mination condition occurring, control is 
given to EXITRTN3 in IHCSTAE. No retry is 
attempted. Messages are issued: via WTO 
macro instructions, and control is returned 
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to the supervisor to complete abnormal 
termination. 



three functions: 
ERRSET. 



ERRSAV, ERRSTR, and 



EXTENDED ERROR HANDLING FACILITY 



Three routines are centrally involved 
with extended error handling operation. 
They are: 

1. IHCUOPT — the option table 

2. IHCFOPT — the routine available to the 
user to reference and modify the 
option table 

3. IHCERRM — the routine that handles the 
errors according to the option table 
entries 

In addition, IHCETRCH is used to produce 
traceback maps. (When extended error han- 
dling has not been selected, IHCFOPT does 
not exist at all, IHCERRM does not exist as 
a module but only as an entry point in 
IHCTRCH, and IHCUOPT is only 8 bytes long. ) 



O pti o n Tab le—IHCUOPT 



The format of the option table is illus- 
trated in Figures 22 through 24. The table 
is referenced by displacement. It is 
seguential, but begins (after a preface) 
with error 207 — the^ lowest library error. 
There is an entry for every number from 207 
to 301, although the library recognizes no 
error condition for some of them — e.g., 
239 (they are reserved for future use). 
Thus, the entry for error 258 is 
(258-207+1) x8 bytes into the table (allow- 
ing for the preface). A few library error 
numbers < 900-904) are not in the table. 

Certain values are inserted in the 
option table at system generation time. 
These original values are listed in Figure 
25. The user has the power to alter some 
of these values temporarily—that is, alter 
the copy in main storage for the duration 
of the load module — by using FORTRAN source 
statements. All the library error entries 
except 230 and 240 can be altered. 



Altering the Optio n T abl e-- IHC FOP T 



The user's source statement requests for 
referencing and altering the option table 
are handled by IHCFOPT, which is branched 
to directly by the compiler-generated code. 
IHCFOPT has three entry points for its 



ERRSAV AND ERRSTR : These two functions are 
quite simple. They are passed an error 
number and an address. ERRSAV takes a copy 
of the requested error number entry from 
the table and places it at the indicated 
address. ERRSTR takes the new 8-byte entry 
from the indicated user address and inserts 
it in the table, overlaying the original 
entry. 

ERRSAV and ERRSTR both first check to 
see that the error number is within the 
table range. If it is not, they issue 
message 902, employing IHCFCVTH and 
IHCEFIOS in the process. ERRSTR also 
checks bit 1 of byte 4 of the old table 
entry to make sure modification is permiss- 
ible. If it is not, it issues message 903, 
with the help of IHCFCVTH and IHCEFIOS. 
Return is to the calling program in all 
cases. 

ERRSET: ERRSET also modifies table 
entries, but is more flexible than ERRSTR. 
It is passed either five or six parameters, 
and takes the following actions: 

• The error number : a reference only. 

• A new limit count for entry field one : 

contents are moved in as is, unless the 
count is greater than 255, in which 
case the field is set to 0, or unless 
the count is 0, in which case no action 
is taken. 

• A new message count for. en try fiel d 

two: contents are moved in as is, 
unless they are negative or zero. If 
they are negative, the field is set to 
0; if they are 0, no action is taken. 

• Tracebac k requested or suppre sse d : if 
1, bit 6~~of entry field four is turned 
off; if 0, it is turned on; if any 
other number, no action is taken. 



is error 212, 
control; 



• A user exit routine address, or absence 

thereo f, for entry field fiv e: the 

value is moved in as is. 

• (Optional parameter) - Either an error 

number higher than one i n the first 

parameter, or, if the first parame ter 

request for print 
the first case, all 
entries from the lower number to the 
higher are altered as indicated; in the 
second case, if a 1 , bit of field 
four is set to 1, if not a 1 , it is 
set to 0. 

ERRSET checks to make sure that the error 
number entry or entries indicated are 
within the table range. If not, it issues 



in 
from 
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message 902, using IHCFCVTH and IHCEFIOS. 
ERRSET also checks to make sure that the 
entry or entries permit modification. If 
they do not, it issues message 903 using 
IHCFCVTH and IHCEFIOS. 



Error Monitor--IHCERRM 



The error monitor is 
following three cases: 



called in the 



, 1. When a library module has discovered 
an error condition during its proces- 
sing (entry point IHCERRM) 

2. When the user's program has detected 
one of the user-defined errors (302- 
899) and wishes to handle it according 
to his option table entry (entry point 
ERRMON) 

3. During normal load module termination 
processing, to give the error count 
summary (entry point IHCERRE) 

In the first two cases, the error monitor 
consults the corresponding entry in the 
option table IHCUOPT to determine what 
actions it will take for this particular 
error condition. 

After using the error number passed to 
it to locate the corresponding option table 
entry, the error monitor updates the error 
count field and compares it to the limit 
field. If the limit is now exceeded, it 
begin;- the termination process. This 
involves having IHCEFIOS print out message 
900 and the error message passed by the 
caller (if the option table indicates it is 
desired) , and having IHCETRCH produce the 
traceback map (if the option table so 
indicates). Finally, the IBEXIT section of 
IHCECOMH is given control. (The error 
monitor may be entered again to give the 
error summary. See "Error Summary.") 

If the error count limit is not yet 
exceeded, the error monitor has the caller 
error message and the traceback map pro- 
duced (if the table so indicates), using 
IHCEFIOS and IHCETRCH, respectively. Then 
it sees whether or not a user exit routine 
is specified. If it is, IHCERRM branches 
to it passing along data supplied by the 
routine that detected the error. The 
nature of this data depends on the error 
detected. 

The user routine is required to return 
to the error monitor, indicating that it 
has either performed corrective action 
itself (a 1 in the first parameter), or 
wants standard library corrective action (a 
in the first parameter). The error 



monitor issues a message reporting on this 
status, and then returns to its original 
caller, passing the correction code. The 
caller either resumes its normal proces- 
sing, or does its standard correction 
before continuing. 

If the error monitor finds no user exit 
address, it returns to the caller request- 
ing standard correction. 

SPECIAL CONDITIONS : The error monitor will 
not allow recursive usage. If it is 
entered a second time before its current 
processing is finished, it issues message 
901 and begins the termination procedure. 
The error monitor also checks to make sure 
the error number specified is within the 
option table range; if it is not, it issues 
message 902. 

The error monitor performs an additional 
step when it finds the error to be 218. In 
this case, after going to the user exit 
routine if there was one, IHCERRM deter- 
mines from IHCECOMH if the user has spec- 
ified an ERR= address on his READ source 
statement. If so, IHCERRM branches to it. 

For error 218, the error monitor issues 
a FREEMAIN macro instruction to free the 
message area the calling routine acquired. 

ERROR SUMMARY : The summary routine (entry 
IHCERRE) simply loops through the option 
table, finding those entries for which 
errors have occurred during load module 
execution, and putting the error numbers 
and their accumulated counts in the mes- 
sage. It uses IHCFCVTH for conversion and 
IHCEFIOS for printing. If IHCEFIOS has 
identified an error condition for the 
object error unit, the summary is skipped. 



Extended Er ror Handling Trackback — IHCETRCH 



IHCETRCH performs in the same manner as 
IHCTRCH, with these three exceptions: 

1. IHCETRCH is called by IHCERRM, rather 
than directly by the error-detecting 
routine. 

2. IHCETRCH does not have the error- 
detecting routine's message printed 
out, since this is done by IHCERRM. 

3. IHCETRCH can also be called by the 
user, through a source statement call- 
ing its entry point ERRTRA. A trace- 
back reguested in this way is not 
necessarily connected with any error 
condition. IHCETRCH returns to the 
user program. 
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Table 11. IHCFCVTH Subroutine Directory 



| Subroutine | 
»• +- 



Function 



| FCVAI 


Reads 


| FCVAO 


Writes 


| FCVCI 


Reads 


| FCVCO 


Writes 


| FCVDI 


Reads 


| FCVDO 


Writes 


| FCVEI 


Reads 


| FCVEO 


Writes 


| FCVFI 


Reads 


| FCVFO 


Writes 


• ^CVGI 


Reads 


| FCVGO 


Writes 


| FCVII 


Reads 


| FCVIO 


Writes 


| FCVLI 


Reads 


| FCVLO 


Writes 


| FCVZI 


Reads 


| FCVZO 


Writes 






CONVERSION 



alphameric data. 

alphameric data, 
complex data. 

complex data, 
double precision data with an external exponent. 

double precision data with an external exponent, 
real data with an external exponent. 

real data with an external exponent, 
real data without an external exponent. 

real data without an external exponent, 
general type data. 

general type data, 
integer data. 

integer data, 
logical data. 

logical data, 
hexadecimal data. 

hexadecimal data. 



MATHEMATICAL ROUTINES 



Routine IHCFCVTH, the library conversion 
routine, is called by IHCFCOMH/IHCECOMH to 
convert user input/output data under FORMAT 
control, by IHCNAMEL to convert user input/ 
output data under NAMELIST control, and by 
service routines (such as IHCFDUMP and 
IHCDBUG) and error handling routines (such 
as IHCERRM and IHCTRCH) to convert output 
data into printable (EBCDIC) hexadecimal 
and/or decimal form. 

IHCFCVTH is divided into a number of 
subroutines (see Table 11). Each subrou- 
tine is designed to convert a particular 
type of input or output data. The library 
routine calling IHCFCVTH selects which con- 
version operation it wants, and branches to 
the appropriate subroutine. The calling 
routine passes the address of the existing 
data item, the address at which to place 
the result, the length, scale factor, and 
decimal point location of the existing data 
item, and other related information. 

The subroutine then converts and moves 
the data item, and returns to its caller. 



MATHEMATICAL AND SERVICE ROUTINES 



The library contains a large number of 
mathematical routines, and some service 
routines. When a particular routine has 
been requested by the user in his source 
program (by entry point name), or when the 
compiler has recognized an implicit need 
for a mathematical function, it is branched 
to directly from the compiler-generated 
code. 



The mathematical routines are generally 
independent of the other library programs 
(except when they detect errors or cause 
arithmetic-type program exceptions) . They 
perform their calculations, possibly with 
the assistance of another mathematical rou- 
tine or two, and return .directly to the 
compiler-generated code. The internal 
logic of these routines is documented in 
the publication IBM System/360 Operating 
IV Library- -Mathematical 



System; FORTRAN 



and Service Subprograms, Order No. GC28- 

6818, under the section "Algorithms." 



SERVICE SUBROUTINES 



IHC FDVCH (Entry Name DVCHK) 



The function of IHCFDVCH is to test the 
status of the divide check indicator switch 
(DVCIND-- located in IHCFCOMH/IHCECOMH) and 
return an answer in the location specified 
in the call. This switch is turned on (set 
to X* FF* by the library's interrupt handler) 
when it finds a divide exception has 
occurred. IHCFDVCH inserts a 1 in the 
calling program's answer location if the 
switch is on, or a 2 if it is off.* The 
answer location is the argument variable in 



♦Before checking the switch, both IHCFDVCH 
and IHCFOVER issue the special no- 
operation BCR 15,0, which drains pipe-line 
models (e.g., Models 91 and 195) to 
ensure sequential execution. 
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the original FORTRAN statement CALL 
DVCHK(arg). Its address is pointed to by 
Register 1 when IHCFDVCH gains control. 

If the DVCIND switch is on, IHCFDVCH 
turns it off (set to X'OO 1 ); if off, it is 
left off. IHCFDVCH returns to the calling 
program. 



IHCFOVER (Entry N ame O VERFL) 



IHCFOVER tests for overflow and under- 
flow, and performs in a manner similar to 
IHCFDVCH. The switch it tests is OVFIND — 
which is also found in IHCFCOMH/IHCECOMH , 
and set by the library interrupt handler. 
OVFIND set to X'FF' indicates overflow has 
occurred, X'01' indicates underflow, X'OO' 
indicates neither. IHCFOVER sets the call- 
er's answer location to 1 for overflow, 3 
for underflow, and 2 for neither. 

If on, OVFIND is turned off; if off, 
left off. IHCFOVER returns to the calling 
program. 



IHCFSLIT (Entry Names SLITE, SLITET) 



they get the address of the integer output 
section of IHCFCVTH (FCVIO) from IHCFCOMH/ 
IHCECOMH, and branch to it to have the 
error message contents converted. Then 
IHCFSLIT branches to IHCERRM (see the sec- 
tion on library-detected errors). 

If extended error handling is not in 
effect, IHCERRM goes to the IBEXIT section 
of IHCFCOMH/IHCECOMH to terminate load 
module execution. If extended error han- 
dling is in effect, and IHCFSLIT, upon 
regaining control, finds the user did no 
special fixup, IHCFSLIT' s standard correc- 
tive action is as follows: 

SLITE: no action at all 
SLITET: answer returned to caller is 2; 
no switches are changed 



IHC FEXIT (Entry Name EXIT) 



IHCFEXIT simply branches to the IBEXIT 
section of IHCFCOMH/IHCECOMH, which then 
terminates load module execution in its 
usual way. 



IHCFDUMP (Entry Names DUMP and PDUMP) 



IHCFSLIT performs two functions: sets 
the pseudo-sense lights (entry SLITE), and 
reports back to the caller on their status 
(entry SLITET). 

The four pseudo-sense lights are four 
bytes in IHCFSLIT labelled SLITES. These 
switches are not connected with any system 
switches, nor directly with any system 
condition. They are internal to the load 
module, and have meaning only to the FOR- 
TRAN user, who, employing IHCFSLIT, both 
sets and interprets them. 

SETTING THE SWITCHES : SLITE either turns 
off all the switches (sets them to X'OO 1 ), 
or turns on one (sets it to X'FF*). When 
the argument passed to it is 0, SLITE turns 
all switches off. When the argument is 
1-4, it turns on the corresponding switch-- 
that is, an argument of 2 turns on the 
second (from left) byte of SLITES. 

TESTING THE SWITCHES : SLITET is passed two 
parameters, the first indicating the parti- 
cular switch to be tested, and the second 
pointing to a location for its answer. 
SLITET returns the answer 1 if it finds the 
switch on, and 2 if it is off. If it finds 
the switch on, it turns it off; if it is 
off, it is left off. 

ERROR CONDITIONS : Both SLITE and SLITET 
first test their arguments for correct 
range. For SLITE, this must be 0-4; for 
SLITET, 1-4. When an argument is in error, 



IHCFDUMP 1 s function is to have printed 
out on the object error unit the storage 
contents specified in the call, in the 
format specified. The absolute storage 
location of each request is also printed 
out. 

The call parameters are in -this form: 



DC 
DC 
DC 



DC 
DC 
DC 



AL4(A1) 
AL4(B1) 
AL4(F1) 



AL4(An) 
AL4(Bn) 
XLl'FF' ,AL3(Fn) 



where A and B are addresses of the outer 
limits of the storage to be dumped, and F 
is either the integer format number itself, 
or the address of a location containing the 
number. The specifications are: 






= 


hexadecimal 


1 


= 


LOGICAL+1 


2 


= 


LOGICAL* 4 


3 


= 


INTEGER* 2 


4 


= 


INTEGER+4 


5 


= 


REAL* 4 


6 


= 


REAL* 8 


7 


= 


COMPLEX* 8 


8 


= 


COMPLEX* 16 


9 


= 


literal 
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If the user passes any other number, 
IHCFDUMP chooses (hexadecimal) as a 
default format. 



The procedure is identical for DUMP and 
PDUMP , except for two things : 

• if DUMP finds an input/output correc- 
tive action routine is in process, it 
functions normally; PDUMP, however, 
instead of processing, goes to section 
ERR9 04 in IHCFCOMH/IHCECOMH to print 
prror message 904 and to terminate load 
module execution. (An input/output 
corrective action routine in process is 
indicated by the first byte of SAVE in 
IHCFCOMH/IHCECOMH set to anything other 
than X'FF' . ) 

• after normal processing, DUMP goes to 
the IBEXIT section of IHCFCOMH/IHCECOMH 
to terminate load module execution; 
PDUMP, however, returns to the caller 
for continued execution. 

IHCFDUMP uses IHCFCVTH and IHCFIOSH/ 
IHCEFIOS to assist in its operations. 
After getting the address of IHCFIOSH/ 
IHCEFIOS from IHCFCOMH/IHCECOMH, IHCFDUMP 
branches to initialize for printing. It 
next moves a section to be dumped into the 
IHCFIOSH/IHCEFIOS buffer, and determines 
the format type requested.* It passes this 
information to the FCVZO part of IHCFCVTH 
('Z' output), for conversion. Lastly, it 
branches to IHCFIOSH/IHCEFIOS to print out 
the line. IHCFDUMP loops in this manner 
until it exhausts the calling list. 

If, during the printing, IHCFIOSH/ 
IHCEFIOS indicates it has encountered an 

input/output error, IHCFDUMP skips the re- 
mainder of its work. \- 



IHCDBUG 



IHCDBUG is called by 
generated object code to 
user DEBUG requests. Gene 
assembles debug informat 
IHCFIOSH/IHCEFIOS to write i 
may also have occasion to us 
data conversion), IHCNAMEL ( 
PLAY requests), IHCUATBL ( 
default object error unit 
IHCFCOMH/IHCECOMH (in which 
registers) . 



the compiler- 
implement most 
rally, IHCDBUG 
ion and uses 
t out. IHCDBUG 
e IHCFCVTH (for 
to produce DIS- 
to obtain the 
number), and 
to store user 



♦IHCFDUMP expects the format type requested 
to correspond to the format of the data in 
main storage. Therefore, asking it to 
print out an INTEGER variable in REAL 
format, for example, will result in a 
garbled dump. 



IHCDBUG has a single entry point — 
DEBUG#--which is the head of a branch 
table. This table is outlined in Table 12. 

Table 12. IHCDBUG Transfer Table 



Dis- 
place- 
ment 







-+ 



12 

16 

20 

24 

28 

32 
36 

40 
44 

48 



Branches 

to 
Section 



TRACE 
SUBTREN 
SUBTREX 
UNIT 

INITSCLR 

INITARIT 

INITARAY 

SUBCHK 

TRACEON 
TRACEOFF 
DISPLAY 
STARTIO 

ENDIO 



Function of Routine 



Pass label of statement 
to be traced 

Pass subprogram name on 
entry 

Pass 'RETURN' on subpro- 
gram exit 



Initialize 

reference 

output 



data 
number 



set 
for 



Pass data for initialized 
variable 

Pass data for initialized 
array element 

Pass data for initialized 
array 

Pass data on referenced 
array element 

Turn on trace switch 

Turn off trace switch 

Display referenced items 

Begin input/output 
operation 

End input/output 
operation 



In addition to the 13 routines listed in 
the branch table, IHCDBUG uses the follow- 
ing subroutines: 

• OUTITEM, which puts a data item into 
DBUFFER 

• OUTNAME, which puts the name of an 
array or variable into DBUFFER 

• OUTINT, which converts an integer to 
EBCDIC 

• OUTFLOAT, which puts a floating-point 
number into DBUFFER 

• OUTBUFFER, which controls the output 
operation for DBUFFER 

• ALLOCHAR, which moves a character to a 
save area 

• FREECHAR, which extracts a character 
from a save area 

• OUTPUT, which transfers DBUFFER to 
IHCFIOSH/IHCEFIOS for printing 
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The following items in IHCDBUG are 
initialized to zero at load module execu- 
tion time: 

• DSRN, the data set reference number 

• TRACFLAG, the trace flag 

• IOFLAG, the input/output in progress 
flag 

• DATATYPE, the variable type bits 

Whenever information is assembled for 
output, it is placed in a 77-byte area 
called DBUFFER. The first character of 
this area is permanently set to blank to 
specify single spacing. The next seven 
characters are the string — DEBUG — to pro- 
vxde a label tor the output. 

The functions of the various IHCDBUG 
sections are: 

TRACE 

If TRACFLAG is off, control is 
returned immediately to the caller. 
Otherwise, the characters 'TRACE' are 
moved to DBUFFER, the section OUTINT 
converts the statement number to EBCD- 
IC and places it in DBUFFER, and 
control is passed to OUTEUFFR. 

SUBTREN 

The characters 'SUBTRACE' and the name 
of the program or subprogram are moved 
to DBUFFER and a branch is made to 
OUTBUFFR. 

SUBTREX 

The characters • SUBTRACE *RETURN*' are 
moved to DBUFFER and a branch is made 
to OUTBUFFR. 

UNIT 

The unit number argument is placed in 
DSRN and the routine returns to its 
caller. 

INITSCLR 

The data type is saved, the location 
of the scalar is computed, subroutine 
OUTNAME places the name of the scalar 
in DBUFFER, and a branch is made to 
OUT ITEM. 

INITARIT 

This routine saves the data type, 
computes the location of the array 
element, and (via the subroutine OUT- 
NAME) places the name of the array in 
DBUFFER. It then computes the element 
number as follows: 

XXX=((YYY-ZZZ)/AAA)+1 

where: 

XXX is element number 
YYY is element location 
ZZZ is first array location 
AAA is element size 



and places a left parenthesis, the 
element number (converted to EBCDIC by 
subroutine OUTINT), and a right paren- 
thesis in DBUFFER following the array 
name. A branch is then made to 
OUT ITEM. 

INITARAY 

If IOFLAG is on, the character X' FF' 
is placed in DBUFFER, followed by the 
address of the argument list, and a 
branch is made to OUTBUFFR, Other- 
wise, a call to INITARIT is con- 
structed, and the routine loops 
through that call until all elements 
of the array have been processed. 

SUBCHK 

The location of the array element is 
computed. If it falls within the 
array boundaries, control is returned 
to the caller. If it is outside the 
array boundaries, SUBCHK places the 
characters 'SUBCHK' into DBUFFER, and 
computes the element number. OUTINT 
converts this number into EBCDIC and 
moves it into DBUFFER. OUTNAKE moves 
the array name into DBUFFER. Finally, 
OUTBUFFR is called. 

TRACEON 

TRACFLAG is turned on (set to non- 
zero) , and control returned to caller. 

TRACEOFF 

TRACFLAG is turned off (set to zero), 
and control returned to caller. 

DISPLAY 

If IOFLAG is on, the characters 

'DISPLAY DURING I/O SKIPPED' 

are moved to OUTBUFFR. Otherwise, a 
calling sequence for the NAMELIST 
write routine (IHCNAMEL) is con- 
structed. If DSRN is equal to zero, 
the unit number for SYSOUT (in 
IHCUATBL+6) is used as the unit passed 
to the NAMELIST write routine. On 
return from the NAMELIST write, this 
routine exits. 



START 10 

BYTECNT is se 
the current 
is set to 
input/ out put 
CURBYTLC is 
SAVESTR1 (whe 
first main 
routine exits 
ALLOCHAR. ) 



t to 251 to indicate that 
area is full, the IOFLAG 
X'80' to indicate that 
is in progress, the 
set to the address of the 
re the location of the 
block will be) , and the 
(See the discussion of 



ENDIO 



The IOFLAG is saved in TEMPFLAG and 
IOFLAG is reset to zero so that this 
section may make debug calls that 
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result in output to a device. If no 
information was saved during the 
input/output, this routine exits. 

If information was saved, section 
FREECHAR is used to extract the data 
from the save area and move it to 
DBUFFER. FREECHAR does this one 
character at a time until it finds a 
X'15', indicating the end of the line. 
It then calls OUTPUT to have DBUFFER 
written out. If FREECHAR finds a 
X'FF*, indicating a full array, it 
calls INITARAY to move the array data 
to DBUFFER. 

If no main storage or insufficient 
main storage was available for saving 
information during the input/output, 
the characters 

•SOME DEBUG OUTPUT MISSING' 

are placed in DBUFFER after all saved 
information (if any) has been written 
out. The subroutine OUTPUT is then 
used to write out the message, and 
this routine returns to the caller. 

OUTITEM 

First, the characters • = ' are moved 
to DBUFFER. Four bytes of data are 
then moved to a work area on a double- 
word boundary to avoid any boundary 
alignment errors when registers are 
loaded for logical or integer conver- 
sion. A branch on type then takes 
place. For fixed-point values, the 
routine OUTINT converts the value to 
EBCDIC and places it in DBUFFER. A 
branch to OUTBUFFR then takes place. 

For floating-point values, subroutine 
OUTFLOAT places the value in DBUFFER. 
A branch to OUTBUFFR then takes place. 

For complex values, two calls to OUT- 
FLOAT are made — first with the real 
part, then with the imaginary part. A 
left parenthesis is placed in DBUFFER 
before the first call, a comma after 
the first call, and a right parenthe- 
sis after the second call. A branch 
to OUTBUFFR then takes place. 

For logical values, a T is placed in 
DBUFFER if the value was nonzero; 
otherwise, an F is placed in the 
DBUFFER. A branch to OUTBUFFR then 
takes place. 

OUTNAME 

Up to six characters of the name are 
moved to DBUFFER. OUTNAME returns to 
its caller upon encountering a blank. 



value (passed in R2) 
the character • 0' is 
and the routine exit 
than zero, a minus si 
DBUFFER. The value 
to EBCDIC and placed 
leading zeros suppres 
then exits. 



is equal to zero, 
placed in DBUFFER 
s. If it is less 
gn is placed in 
is then converted 
in DBUFFER with 
sed. The routine 



OUTINT 

This is a closed subroutine. 



If the 



OUTFLOAT 

This subroutine calls the library 
module IHCFCVTH to put the floating- 
point number out under G conversion 
with a format of G1U.7 for single 
precision and G23.16 for double 
precision. 

OUTBUFFR 

If the IOFLAG in IHCDBUG is set, 
indicating the library input/output 
routines are busy handling some other 
user input/output request, IHCDBUG 
must wait until the routines are free. 
This means it must accumulate and 
store its output data for the time 
being. To do this, OUTBUFFR calls 
ALLOCHAR--once for each character in 
DBUFFER, and one final time with X' 15* 
to indicate the end of the line. 

OUTBUFFER checks the IOFLAG. If it is 
not set, it then checks the input/ 
output corrective action switch in 
IHCFCOMH/IHCECOMH. If this switch 
indicates an input/output corrective 
action is in process, OUTBUFFER calls 
the ERR904 section of IHCFCOMH/ 
IHCECOMH to terminate execution. If 
there is no input/output corrective 
action in process, OUTBUFFR calls OUT- 
PUT for normal output processing. 

ALLOCHAR 

ALLOCHAR saves the data passed to it 
in 256-byte blocks of storage obtained 
by GETMAIN macro instructions. When 
BYTECNT is equal to 251, indicating 
the current block is full, a new 
GETMAIN is issued. If no storage was 
available, an X , 07 l , indicating the 
end of core storage, is placed in the 
last available byte position, IOFLAG 
is set to full, and the routine exits. 
Otherwise, the address of the new 
block is placed in the last four bytes 
of the previous block, preceded by 
X*37' indicating end of block with new 
block to follow. CURBYTLC is then set 
to the address of the new block and 
BYTECNT is set to zero. The character 
passed as an argument is then placed 
in the byte pointed to by CURBYTLC, 
one is added to both CURBYTLC and 
BYTECNT, and the routine exits. 

FREECHAR 

This is a closed subroutine. If the 
current character extracted is X*37', 
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indicating a new block follows the 
current block, the next four bytes are 
placed in CURBYTLC and the current 
block is freed. If the current 
character is X'07', indicating the end 
of core storage, the block is freed 
and a branch is made to the end 
input/output exit. Otherwise, the 
current character is passed to the 
calling routine and CURBYTLC is incre- 
mented by one. 

OUTPUT 

If DSRN is zero, the SYSOUT unit 
number is obtained from IHCUATBL +6. 
A call is then made to the initializa- 
tion section Of IHCFIOSH/IHCEFIOS. 
Upon return, OUTPUT transfers DBUFFER 
to the IHCFIOSH/IHCEFIOS buffer, and 
calls the write section of IHCFIOSH/ 
IHCEFIOS. If IHCFIOSH/IHCEFIOS indi- 
cates an input/output error, IHCDBUG 
ignores the rest of the current DEBUG 
request. 



TERMINATION 



Every compiler-generated program ends 
with a branch to the FSTOP section of 
IHCFCOMH/IHCECOMH. This section is a ter- 
mination procedure that: 



code passed 
handling 



it into 



has been 
have the 



• puts the return 
register 15. 

• if extended error 
specified, calls IHCERRM to 
error summary produced. 

• calls IHCFIOSH/IHCEFIOS to close 
sequential files (IHCFIOSH/IHCEFIOS in 
turn calls IHCDIOSE/IHCEDIOS to close 
any direct access files). 

• deletes IHCADJST, if it has been 
loaded. 

• cancels the SPIE, restoring the old 
PICA if there was one. 

• either 

a. cancels the STAE and returns to the 
supervisor if IHCSTAE has not been 
loaded (i.e., no abnormal termina- 
tion has been scheduled) 

b. cancels the STAE and issues an 
ABEND macro instruction if entry is 
from IHCSTAE 

The above termination procedure is used 
both for the normal end of load module 
execution and for most instances of 
library-initiated premature termination. 
The only exceptions occur in IHCSTAE, 



when control is sometimes returned directly 
to the supervisor, bypassing the above 
procedure. 



Unit number (DSRN) j 
being used for current | 

operation j n 1 x 16 j 4 bytes 

x. 



T T — T" 

ERRMSG | READ | PRINT | PUNCH 
DSRN 2 | DSRN 3 j DSRN 4 * | DSRN 5 
X X X 



UBLOCK01 field 6 
DSRN01 default values 7 
LIST01 field 8 



UBLOCKn field 6 



DSRNn default values 7 



LISTn field 8 



4 bytes 



4 bytes 



8 bytes 



4 bytes 



4 bytes 



8 bytes 



4 bytes 



1 n is the maximum number of units that 
can be referred to by the FORTRAN LOAD 
MODULE. The size of the unit table is 
equal to (8 + n x 16) bytes. 

2 Unit number (DSRN) of error output 
device. 

3 Unit number (DSRN) of input device for a 
read of the form: READ b, list . 

u Unit number (DSRN) of output. device for 
a print operation of the form: PRINT 
b, list. 

s Unit number (DSRN) of output device for 
a punch operation of the form: PUNCH 
b, list . 

6 The UBLOCK field contains either a 
pointer to the unit block constructed 
for unit number n if the unit is being 
used at object time, or a value of 1 if 
the unit is not being used. 

7 This field contains DCB default values, 
which are inserted into the DCB if the 
user does not supply them. They are 
detailed in Figure 19. Only IHCFIOSH/ 
IHCEFIOS gets its default values from 
this field. 

8 If the unit is defined as a direct 
access data set, the LIST field contains 
a pointer to the parameter list that 
defines the direct access data set. 
Otherwise, this field contains a value 
of 1. 



Figure 18. IHCUATBL: The Data Set Assign- 
ment Table 
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Table 13. DCB Default Values 

r -t 

| Sequential Data Sets 
|. T T T T . 



ddname 



RECFM 1 



LRECL 3 



BLKSIZE 



DEN 



BUFNO 



Direct Access Data Sets 
.__ T __„ T 



RECFM 



LRECL or 
BLKSIZE 



BUFNO 



FT03Fxxx 
FT05Fxxx 
FT06Fxxx 
FT07FXXX 
all others 



U 

F 

UA 

F 

U 



80 

132 

80 



800 
80 

133 
80 

800 



FA 

F 

F 

F 

F 



The value 
specified as the 
maximum size of 
a record in the 
DEFINE FILE 
statement. 



*-For records not under FORMAT control, the default is VS. 

2 For records not under FORMAT control, the default is 4 less than shown. 



2 bytes > < 2 bytes 



1 1 
-> <- byte -> <- byte -> < ^ 2 bytes 



| not used | BLKSIZE 

l . x 

Figure 19. DSRN Default Value Field of IHCUATBL Entry 



| RECFM | BUFNO | 

X X X. 



LRECL 



h- 



ABYTE 



BBYTE 



"7" 

I 

X X- 

Address of Buffer 1 



CBYTE 



DBYTE 



Address of Buffer 2 



Current buffer pointer 
Record displacement (RECPTR) 
Address of last DECB 
Mask for alternating buffers 
DECB1 skeleton section 



(Note) 
(Note) 



j. T T 

Logical record length | Not used | LIVECNTl 

| X X 

DECB2 skeleton section 
j. T T 

Work space | Not used J LIVECNT2 
, x x 

DCB skeleton section 



4 bytes j 
^ 

4 bytes | 
^ 

4 bytes j 
^ 

4 bytes | 
4 

4 bytes | 

4 

4 bytes j 



4 bytes | 
4 

20 bytes | 
4 

4 bytes j 
4 

20 bytes | 
1 

4 bytes j 
., 

88 bytes | 

j 



Figure 20. Format of a Unit Block for a Sequential Access Data Set 



Housekeeping 
Section 



Note ; Used only for 
variable-length 
and/or blocked 
records 
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• ABYTE. This field, containing the data 
set type passed to subprogram IHCFIOSH/ 
IHCEFIOS by IHCFCOMH/IHCECOMH, is set 
to one of the following: 



FO — Input data set which is to be 
processed under format control. 

FF — Output data set which is to be 
processed under format control. 

00 ■ — Input data set which is to be 
processed without format control. 

OF — Output data set which is to be 
processed without format control. 



• BBYTE . This field contains bits that 
are set and examined by IHCFIOSH/ 
IHCEFIOS during its processing. The 
bits and their meanings, when on, are 
as follows: 

— exit to subroutine IHCFCOMH/ 

IHCECOMH on input/output error 

1 -- input/output error occurred 

2 — current buffer indicator 

3 — not used 

4 — end-of-current buffer indicator 

5 — blocked data set indicator 

6 — variable record format switch 

7 — not used 

• C BYTE . This field also contains bits 
that are set and examined by subroutine 
IHCFIOSH/IHCEFIOS. The bits and their 
meanings, when on, are as follows: 

— data control block opened 

1 — data control block not T-closed 

2 -- data control block not previously 

opened 

3 — buffer pool attached 

U — data set not previously rewound 

5 — not used 

6 — concatenation occurring; reissue 

READ 

7 ~ data set is DUMMY 



• DBYTE. This field contains bits that 
are set and examined by IHCFIOSH/ 
IHCEFIOS during the processing of an 
input/output operation involving a 
backspace request. The bits and their 
meanings, when on, are as follows: 

— a physical backspace has occurred 

1 — previous operation was BACKSPACE 

2 -- not used 

3 — end-of-file routine should retain 

buffers 

4-5 — not used 

6 — END FILE followed by BACKSPACE 

7 — not used 

• Address of Buffer 1 and Address of 
Buffer 2 . These fields contain poin- 
ters to the two input/output buffers 
obtained during the opening of the data 
control block for this data set. 



• Current Buffer Pointer. 



This field 



contains a pointer to the input/output 
buffer currently being used. 

• Record Offset (RECPTR) . This field 
contains a pointer to the current log- 
ical record within the current buffer. 

• Address of Last DECB . This field con- 
tains a pointer to the DECB last used. 

• Mask for Alternating Buffers. This 

field contains the bits which enable an 
exclusive OR operation to alternate the 
current buffer pointer. 

DECB_SKELETON_SECTigNS_XDECBl AND DECB2J_: 

The DECB (data event control block) skele- 
ton sections are blocks of main storage 
within the unit block. They have the same 
format as the DECB constructed by the 
control program for an L format of an 
S-type READ or WRITE macro instruction (see 

the publication IBM Sy stem/360 Operating 

System j_ S upervisor and Data Management 

Macro Instructions , Order No. GC28-6647). 
The various fields of the DECB skeleton are 
filled in by subprogram IHCFIOSH; the com- 
pleted block is referred to when IHCFIOSH 
issues a read/write request to BSAM. The 
read/write field is filled in when the OPEN 
macro is being executed. 

Log ical Record Length: This is the LRECL 
of the current data set. It is inserted by 
IHCFIOSH/IHCEFIOS during its open exit 
routine. 

• LIVECNT1 and LIVECNT2. These fields 

indicate whether any input/output 
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operation performed for the data set is 
unchecked. (A value of 1 indicates 
that a previous read or write has not 
been checked; a value of indicates 
that the previous read or write opera- 
tion on that DECB has been checked. ) 

• Work Space . This field is used to 
align the logical record length of a 
variable record segment on a fullword 
boundary. 



DCB ; The fields of this skeleton for DCB 
*t-<* filled in partly by IHCFIOSH/IHCEFIOS, 
and partly by the system as a result of an 
OPEN macro instruction by IHCFIOSH/IHCEFIOS. 



| | not 
IOTYPE |STATUSU| used 
_ X - -L 


1 
1 


not 
used 




4 


bytes 


1 
1 




RECNUM 






I 


4 


bytes 




STATUSA | 

I , 


CURBUF 






i 


4 


bytes 




STATUSB | 

L 


BLKREFA 
NXTBUF 






1 

-4- 
i 


4 
4 


bytes 
bytes 






BLKREFB 






i 
i 


4 


bytes 






DECBA 






i 
i 


28 


bytes 






DECBB 






i 
i 


28 


bytes 






DCB 








104 


bytes 


1 



u. 

Figure 21. Format of a Unit Block for a 
Direct Access Data Set 

The meanings of the various unit block 
fields are outlined below. 

IOTYPE : This field, containing the data 
set type passed to subprogram IHCDIOSE by 
the IHCFCOMH subprogram, can be set to one 
of the following:: 

FO — input data set requiring a format 

FF — output data set requiring a format 

00 — input data set not requiring a 
format 

OF — output data set not requiring a 
format 

STATUS u ; This field specifies the status 
of the associated unit number. The bits 
and their meanings when on are : 

Bit Meaning 
data control block for data 
set is open for BSAM 



Bit Meaning 

1 error occurred 

2 two buffers are being used 

3 data control block for data 
set is open for BDAM 

4-5 10 — U format specified in 

DEFINE FILE statement 

01 — E format specified in 

DEFINE FILE statement 

11 — L format specidied in 

DEFINE FILE statement 

6-7 not used 

Note : Subprogram IHCDIOSE refers only to 
bits 1, 2, and 3. 



RECNUM : This field contains the number of 
records in the data set as specified in the 
parameter list for the data set in a DEFINE 
FILE statement. It is filled in by the 
file initialization section after the data 
control block for the data set is opened. 



STATUSA : This field specifies the status 
of the buffer currently being used. The 
bits and their meanings when on are: 



Bit Meaning 

READ macro instruction has 
been issued 

1 WRITE macro instruction has 
been issued 

2 CHECK macro instruction has 
been issued 

3-7 not used 



CURBUF : This field contains the address of 
the DECB skeleton currently being used. It 
is initialized to contain the address of 
the DECBA skeleton by the file initializa- 
tion section of IHCDIOSE after the data 
control block for the data set is opened. 

BLK REFA : This field contains an integer 
tEat Indicates either the relative position 
within the data set of the record to be 
read, or the relative position within the 
data set at which the record is to be 
written. It is filled in by either the 
read or write section of subprogram IHC- 
DIOSE prior to any reading or writing. In 
addition, the address of this field is 
inserted into the DECBA skeleton by the 
file initialization section of IHCDIOSE 
after the data control block for the data 
set is opened. 
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S TATUS B : This field specifies the status 
of the next buffer to be used if two 
buffers are obtained for this data set 
during data control block opening. The 
bits and their meanings are the same as 
described for the STATUSA field. However, 
if only one buffer is obtained during data 
control block opening, this field is not 
used. 



NXTB UF: This f 
the DECB skel 
buffers are obt 
block opening, 
tain the addres 
the file initi 
gram IHCDIOSE a 
for the data 
only one buffer 
control block 
used. 



ield contains the address of 
eton to be used next if two 
ained during data control 
It is initialized to con- 
s of the DECBB skeleton by 
alization section of subpro- 
fter the data control block 

set is opened. However, if 
is obtained during data 

opening, this field is not 



B LKREFB : The contents of this field are 
the same as described for the BLKREFA 
field. It is filled in either by the read 
or the write section of subprogram IHCDIOSE 
prior to any reading or writing. In addi- 
tion, the address of this field is inserted 
into the DECBB skeleton by the file initia- 
lization section of IHCDIOSE after the data 
control block for the data set is opened. 
However, if only one buffer is obtained 
during data control block opening, this 
field is not used. 



DECBA SKELETON: 



This fie 



Id contains the 
ck) skeleton to 
writing from 
he same form as 
control program 
e READ or WRITE 
(see the pub- 
e rating System: 



DECB (data event control blot 

be used when reading into or 

the current buffer. It is t\ 

the DECB constructed by the 

for an L form of an S-typ< 

macro instruction under BDAM 

li cat ion IBM System/ 360 Opt 

Supervisor and Data Management Macro 

Instructions , Order No. GC28-6647). 

The various fields of the DECBA skeleton 
are filled in by the file initialization 
section of subprogram IHCDIOSE after the 
data control block for the data set is 
opened. The completed DECB is referred to 
when IHCDIOSE issues a read or a write 
request to BDAM. For each input/output 
operation, IHCDIOSE supplies IHCFCOMH with 
the address of and the size of the buffer 
to be used for the operation. 

DECBB SKELETON : The DECBB skeleton is used 
when reading into or writing from the next 
buffer. Its contents are the same as 



described for the DECBA skeleton. The 
DECBB skeleton is completed in the same 
manner as described for the DECBA skeleton. 
However, if only one buffer is obtained 
during data control block opening, this 
field is not used. 



DCB SKELETO N: This field contains the DCB 
(data control block) skeleton for the asso- 
ciated data set. It is of the same format 
as the DCB constructed by the control 
program for a DCB macro instruction under 
BDAM (see the publication IBM Syst em/360 

Operating System: Supervisor"" and ~Data 

^SQ^a§2§Ili:_Macro__lnst ructions ) . ~ 



r 



-8 bytes- 



PREFACE 


Entry 


for 


library error 


condition 


207 


Entry 


for 


library error 


condition 


208 


Entry 


for 


library error 


condition 


209 



Entry for library error condition 300 



Entry for library error condition 301 



Optional entry for user error condition 

30 2 



Optional entry for user error condition 
303 



Optional entry for user error condition 
n-1 



Optional entry for user error condition 
n (Note) 



Note : The user can specify from none to 
598 of his own error conditions; 
thus n can be a maximum of 899. 



Figure 22. General Form of the Option 
Table (IHCUOPT) 
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4 bytes — 
Field One 



111 1 

-> <- byte -> <- byte -> <- byte -> < — byte — > 

— t t t -t 1 

| Field | Field | Field j Field j 
| Two | Three j Four | Five | 

—J- -l x „x j 



Field Contents 

One: The number of entries in the option table. This is 95 plus the total number of 
user-supplied error conditions. 

Two: Bit one indicates whether boundary alignment was selected. l=yes; 0=no. (Bits 
and 2-7 are reserved for future use.) 

Three: Indicates whether extended error handling was selected. X'FF'=no; X , 00'=yes. 

Four: Contains a decimal 10. This is the number of times the boundary alignment error 
message will be printed when extended error handling has not been specified. 



Five: Reserved for future use. 

Figure 23. Preface of the Option Table (IHCUOPT) 



11 1 1 

<- byte -> <- byte -> <- byte -> <- byte -> 



4 bytes 

Field Five 



Field 
One 



Field 
Two 



Field 
Three 



Field 
Four 



Field Contents 



One; 



The number of times the library should allow this error to occur before 
terminating load module execution. A value of zero means unlimited occurrence. 
(Trying to set the field to greater than 255 results in its being set to zero.) 



Two: 



Three: 



Four: 



The number of times the corresponding error message is to be printed before 
message printing is suppressed. A value of zero means no message is to be 
printed. 

The number of times this error has already occurred in execution of the present 
load module. 



Bit Meaning 

~ If control character is supplied for overflow lines, set to 1. 

If control character is not supplied for overflow lines, set to 0. 

1 If this table entry can be user-modified, set to 1. 

If this table entry cannot be user-modified, set to 0. 

2 If more than 255 errors of this type have occurred so that 255 should be 
added to Field Three, set to 1. 

If less than 255 errors of this type have occurred, set to 0. 

3 If buffer contents is not to be printed with error messages, set to 1. 
If buffer contents is not to be printed, set to 0. 

4 Reserved for future use. 

5 If error message is to be printed for every occurrence, set to 1. 
If error message is not to be printed, set to 0. 

6 If traceback map is to be printed, set to 1. 

If traceback map is not to be printed, set to 0. 

7 Reserved for future use. 

Five: The address of the user's exit routine. If one is not supplied (in other words, 
if library is to take its own standard corrections) , the final bit is set to 1 . 

Figure 24. Composition of an Option Table Entry 
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1111 
<- byte -> <- byte -> <- byte -> <- byte -> <- 



4 bytes 



Field | Field | Field j Field \ 
One | Two j Three | Four I 
x x jl x. 



Field Five 



Field Contents 



One: 

Two: 

Three: 
Four: 



Set to 10, except, for errors 208, 210, and 215, which are set to (unlimited), 
and for errors 217 and 230, which are set to 1. 

Set to 5, except for error 210, which is set to 10, and for errors 217 and 230, 
which are set to 1. 

Set to 0. 

Bit Setting 



1 1, except for errors 230 and 240 

2 

3 

4 

5 

6 1 

7 



Set to 1. 

These system generation values are also inserted initially into any user error 
entries. 

Figure 25. Original Values of Option Table Entries 




Table 14. IHCFCOMH/IHCECOMH Transfer and Subroutine Table 

r t T 



| Displacement 


Branches to 




| from IBCOM* 

L _J 


v. Section 

L_____ 1 


Function of Routine 

L _,. 


1 o 


FRDWF 


Opening section, formatted READ 


1 4 


FWRWF 


Opening section, formatted WRITE 


1 8 


FIOLF 


I/O list section, formatted list variable 


1 12 


FIOAF 


I/O list section, formatted list array 


1 16 


FENDF 


Closing section, formatted READ or WRITE 


| 20 


FRDNF 


Opening section, nonformatted READ 


| 24 


FWRNF 


Opening section, nonformatted WRITE 


| 28 


FIOLN 


I/O list section, nonformatted list variable 


1 32 


FIOAN 


I/O list section, nonformatted list array 


| 36 


FENDN 


Closing section, nonformatted READ or WRITE 


| 40 


FBKSP 


Implements the BACKSPACE source statement 


| 44 


FRWND 


Implements the REWIND source statement 


| 48 


FEOFM 


Implements the ENDFILE source statement 


1 52 


FSTOP 


Write-To-Operator, terminate job 


| 56 


FPAUS 


Write-To-Operator, resume execution 


| 64 


IBFINT 


Load module initialization 


| 68 


IBEXIT 


Load module termination 
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Chart GO. IHCFCOMH/IHCECOMH (Part 1 of 4) 



'♦♦♦Al ♦**♦**♦*< 



*********** 



****B1 »»»*♦»*«* 



************** * 



NOTE: CALLS ARE TO AN OFFSET 

FROM IBCOM*. WHICH IS THE 
HEAD OF A BRANCH TABLE. 
(SEE TABLE 11) 



SET IOSWF FOR ♦ 

NON- FORMATTED * 

INPUT ♦ 

* 

**************** 



»***BU ********** 



**************** 



» SET IOSWF FOR 

* NON- FORMATTED 

* OUTPUT 
* 
ft*************** 



• DIRECT * 

ACCESS DATA 
►. SET .* 



.*-♦-»-*. 



OPEN (IF 

NEEDED) AND 

READ 

***»«•*»*•***» 



OPEN (IF 

NEEDED) AND 

READ 



• DIRECT ♦ 

ACCESS DATA 
•. SET .♦ 



-♦-♦-•-♦- 



OPEN (IF 
NEEDED) AND 
READ/WRITE 
************** 



OPEN (IF 
NEEDED) AND 
READ/WRITE 



'*** EM ********* 



♦«*»E5*****»*** 
♦RETURN TO MAIN » 
>• PROGRAM ♦ 



SET IOSWF FOR 

FORMATTED 

OUTPUT 



•»*«*G2********* 

• SCAN FORMAT 

♦ INFORMATION, 
->*SAVING CONTROL 

•SPECIFICATIONS 



»* **H1 ••♦*•••* < 

TRANSLATE 

FORMAT 

INFORMATION 



• FIRST 

CONVERSION 
• . CODE 



**»*J2********* 
♦RETURN TO MAIN ♦ 
♦ PROG • 
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Chart GO. IHCFCOMH/IHCECOMH (Part 2 of 4) 



SET I/O SWITCH 



SET I/O SWITCH 

*************** 



.«-*-*-.-«-»-*. 



♦.DIRECT ACCESS. ♦- 



»*«» «P2* ••• *♦•♦" 

♦ DIOCSH 

->• PUT OUT FINAL 

* BUFFER 



,,.. E2 . ........ 

. . 

•>*RETURN TO MAIN ♦ 



*«.*B3». »»♦♦»»* 
->»RETURN TO MAIN ♦ 

*************** 



• ».. F i ........ i 

SET I/O SWITCH 



>P2«. ...... 



t****j1 ********* 



♦♦ ••Kl**** ♦*••♦ 
. * 

♦RETURN TO MAIN ♦ 



->♦. BUFFER EMPTY .♦ >♦. DIRECT ACCESS. ♦ >♦ 



FRESH READ 



J2 


.. 




.....J3.......... 






♦DIOCSd ♦ 


. . . 


YES 




♦.DIRECT ACCESS 




- — >♦ WRITE OUT ♦ 


♦. . ♦ 




♦ BUFFER ♦ 


♦. . ♦ 




. . 


♦. . ♦ 






♦ NO 




1 








♦ ♦** 








• • 








l->* Jl ♦ 








« * 








♦ *** 


•1 






****»y^2**** ****** 




♦FlOCStt 












* WRITE OUT 


• 




♦ BUFFER 


♦ 
» 





FRESH READ 



.♦♦• 

»...«uu. ......... 

* MOVE CORRECT ♦ 

•AMOUNT OF DATA ♦ 

♦FROM BUFFER TO ♦ 

> LIST ADDRESS ♦ 



»*..jtl« ........ 

♦ ♦ 
♦RETURN TO MAIN ♦ 

♦ ♦ 
**♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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Chart GO. IHCFCOMH/IHCECOMH (Part 3 of 4 ) 



•****A2 ********* 
» 
* 
->♦ ISSUE WTO MACRO 



•»***A5*» ••**»*»« 



*****gl ********* 



••*•****•**•»•*• 



• * * * Bit **»•♦♦♦*♦» 



»***Cl********* 

IBEXIT 

_«_»_»-»-*-*-•- 
TERMINATE 
EXECUTION 



•WAIT FOR REPLY ♦ 



****D1********* 

► RETURN TO » 

> SUPERVISOR ' 



■ Ml on •»»♦•»♦♦< 

• » 

♦RETURN TO MAIN • 



• SET UP 
•PARAMETERS FOR 

• CONVERSION 



*-«-•-*-*- 



»*«**H3**»*«****< 
i • 

i • 

> RESUME SCAN •- 



• NEXT 
CONVERSION 

• . CODE 
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Chart GO. IHCFCOMH/IHCECOMH (Part i( of K) 



FKWND 

FBKSP 
FEOFM 



IMPLEMENT RKSP, 
REWIND, UK 
END-OF-FILH 



►RETURN TO MAIN 



ISSUE SPIE 



ISSUE STAE 



7 
FlOCStt 



•i<ETURN TO MAliJ 



IBEX IT 

♦*t**Ab+******** 
♦IHCERRM 



ERROK SUMMARY 
itttt»)i»ititt» 



CLOSE FILES 
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Chart Gl. IHCFIOSH/IHCEFIOS (Part 1 of 2) 



•»*»A1*»»»« 
I 
» FlOCStt 



DETERMINE OPERATION TYPE 


INITIALIZATION 
READ 

DEVICE MANIPULATION 
FINAL CALL 


FINIT 
FREAD 
FRITE 
FCTRL 
FCLOSE 



FOR MESSAGE WRITING. 



* • 

• CI • 



DETERMINE DSRN 



. *. 
Dl ♦. 

■ ♦ • . 
, • DSRN ZERO • 
. OR NEGATIVE 



J IF EXTENDED 
I ERROR HANDLING 
I IS NOT PRESENT, 
i IHCERRM ENDS 
• EXECUTION 



. » WAS • . 
• PREVIOUS » 

OPERATION A 
•. WRITE .» 



*************** 



K3 • 
• ♦♦♦ 



.•ANY RCDS IN* 

. BLOCK TO BE 

•. PROCESSED.* 



••♦••El ********** 
♦IHCERHM • 

• ERROR MESSAGE • 

• IHC220I • 

• ♦ 

* • 
♦ ♦♦♦ 


..••. E2 »». ••!»••• 

• READ NEXT • 

• RECORD INTO • 

• THIS bUFFEK. • 

• SWITCH riUKFER • 

• POINTERS • 


• ttM E ]«MMMMt 

• * 

•CHECK RESULT OF* 

• WKlTh. KKOM • 

• OTHER DUFFER • 






• »•• 
> . . 

l->« H<t • 

• * 

• • • • 



•WRITE CONTENTS 
•OF THIS BUFFER 

♦ SWITCH BUFFER 

• POINTERS 



• CHECK ANY * 
>• OUTSTANDING • 

♦INPUT OR OUTPUT* 

• * 
♦♦♦»••♦••♦**»»♦♦• 



•CHECK RESULT OF* 
, »HEAD INTO OTHER* 
• BUFFEH • 



•••••G2»»»»«»»»« 
•IHCERRM 

>• ERROR MESSAGE 
• IHC231I 



■ •••Hi •••••••* 

BUILD UNIT 

BLOCK (IF 

NECESSARY I 



V 

• •••• Jl ••••••••>>• 

• OPEN DATA • 

• CONTROL BLOCK • 
•FOR DATA SET IF* 
•NOT PREVIOUSLY • 

• OPENED • 



j IF EXTENDED 
lERROR HANDLING 
|lS NOT PRESENT, 
j IHCERRM ENDS 
I EXECUTION 



• DETERMINE 
->• KECOrtD FORMAT 

• AND BLOCKING 



CURRENT 

OPERATION 

. DEVICE . 

•.MANIP. • 



♦.READ UR WRITE. 



••••J3»»»»«»»* 
READ A BLOCK 



••••E5********* 
» « 

» RETURN * 
► < 

*************** 



♦♦♦•Fb********* 

♦ TO ADDRESS • 

♦ SPECIFIED IN •<--, 
♦END= PARAMETER ♦ 

*************** 



.•IS THERE AN*. 

■>».END PARAMETER. 

♦ .SPECIFIED. ♦ 



•♦•♦H5*^***»**»* 
IHCERRM * 

-*-*r*-*-*-*-*-* 

ERROR MESSAGE ♦- 
IHC217I ♦ 



***** 

♦ 02 ♦ 

♦ Bl» 



♦ ♦ 



(♦♦♦♦♦♦♦•• 

♦ PASS CURRENT 
♦RECORD POINTER 

♦ AND LOGICAL 

• RECORD LENGTH 

• TO CALLER 



♦ ♦♦♦ 
INVERT 

*****%■$********** 

♦INVERT BUFFERS • 

♦ AND DECBS IF ♦ 
♦DATA SET DOUBLE* 

♦ BUFFERED ♦ 



| IF EXTENDED 
•ERROR HANDLING 
■IS NOT PRESENT, 
j IHCERRM ENDS 
[ EXECUTION 



**♦» 

> * 
» K5 ♦ 

> « 

♦ ♦*» 



»***K5********* 
♦ RETURN TO * 
•CALLER AT ERROR*<- 
» OFFSET * 

*************** 
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♦ •♦•♦ 

•02 ♦ 

• H3» 



* ♦ 

* Git ♦ 

* * 
• ♦♦• 
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Chart Gl. IHCFIOSH/IHCEFIOS (Part 2 of 2) 



♦ **« 

*02 * 

* Bl • — i 



Bl *. 

.♦CURRENT*. 

.♦ UNIT THE * 

♦ .OBJECT ERROR 

♦. UNIT .♦ 

*. . * 

♦. . ♦ 

♦ NO 



tttttcl ********** 
♦DATA MANAGEMENT* 

♦ RETRY ♦ 

♦ APPROPRIATE ♦ 
♦NUMBER OF TIMES* 



»••»< 



i***** **** 



I/O ERROR ♦. 
BEEN 
. CORRECTED. ♦ 



***** A2 ♦♦*♦****♦ 
* 

♦ ISSUE ERROR 
♦MESSAGE 1HC218I 

♦ TO CONSOLE 
* 
*♦**»♦**»*»♦#*♦« 



•♦♦♦♦B2 ********** 

♦ IF EXTENDED ♦ 
♦ERROR HANDLING ♦ 

->♦ PRESENT. SET SW* 

♦ TO SUPPRESS ♦ 

♦ ERROR SUMMARY ♦ 
***************** 



I IF EXTENDED 
J ERROR HANDLING 
j IS NOT PRESENT, 
I IHCERRM ENDS 
! EXECUTION 



♦***A3********^ 

♦ RETURN ABORT * 
->^CODE TO IBCOMtt * 

* 4 

*************** 





***♦ 




♦ 02 ♦ 

♦ BU ♦ --, 

♦ * 1 

*♦»* V 


EOFM 

*****^2********** 


CTLRTN .♦. 

BU ♦. 


* * 


, * ♦ 


* WRITE LAST ♦ 

* RECORD ♦< — 

* * 


EOF .♦ DETERMINE 

*. OPERATION 

♦. TYPE 



**********t 



*****Q3********** 

♦ * 

♦ ISSUE CLOSE ♦ 

♦ <TYPE=T> WITH ♦ 

♦ LEAVE OPTION * 

♦ * 
***************** 



*****D3******** 
* 

♦ FREK I/O 

♦ BUFFERS FOR 

♦ THIS DATA SET 



» RETURN TO • 

♦ CALLER AT F.RKOH* 

• OFFSET ♦ 



*****Qti********** 

♦ ISSUE ♦ 

♦ APPROPRIATE ♦ 

♦ NUMBER OF BSP ♦ 

♦ (PhYSICAL ♦ 

♦ BACKSPACE) * 
***************** 



*****fiH********** 
• ADJUST THE ♦ 
♦HECPTR TO POINT* 
» TO PRECEDING ♦ 
♦LOGICAL RECORD • 



* ISSUE CLOSE 
>♦ WITH REREAD 
» OPTION 

**************** 



****Cb********* 
> RETURN 
************** i 



♦ RETURN TO ♦ 

♦ CALLER AT ERRORS 

♦ OFFSET ♦ 



.♦CURRENT^. 
. ♦ UNIT THE • 
.OBJECT ERROR 
♦ . UNIT . * 



»»*♦♦J3♦♦♦♦♦♦♦♦♦♦ 
♦IHCERRM ♦ 
»-*-*-*-*-*-*-*-* 
-♦ ERROR MESSAGE ♦ 
♦ IHC219I ♦ 
» ♦ 

I IF EXTENDED 
•ERROR HANDLING 
IIS NOT PRESENT, 
! IHCERRM ENDS 
| EXECUTION 



».«»»H<4***»*»»** 

♦ IF EXTENDED 
♦ERROR HANDLING 

->*PKESENT. SET UK 

♦ TO SUPPRESS 

♦ EHKOK SUMMARY 



» ISSUE ERROR • 
•MESSAGE IHC219I' 
• TO CONSOLE * 



*»»*K0* *♦♦♦♦♦♦♦ 

♦ RETURN ABORT • 

♦ CODE TO IBCOMtt * 
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Chart G2. IHCDIOSE/IHCEDICS (Part 1 of 5 ) 



CALLS FOR DEFINE FILE 



****A3********» 

♦ COMPILER- * 

♦ GENERATED ♦ 

♦ OBJECT CODE * 



t*B3»*******« 

rUAT 

-♦-»-*-♦_♦-♦_ 



»*****+*« 



►«♦♦♦ c 3 *♦»**»*»♦ < 

► INSERT UNIT < 

► NUMBER'S < 
►PARAMETER LIST < 
►ADDRESS IN UNIT' 

► ASSIGN TUL < 



•UNIT NUMBER* 
IN PARAMETER 
•. LIST . • 



• GET NEXT UNIT 

• NUMBER (IISRNI 
>*EHOM PARAMETER 

• LIST 



.»•> K t ........ , 

ESTABLISH 

ADDRESSABILITY 

IN IHCECOMH/ 

IHCECOMH EOR 

LATER CALLS 



COMI'ILER- 

GENh RATED 

OBJECT CODE 
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Chart G2. IHCDIOSE/IHCEDIOS (Part 2 of 5) 



♦♦•♦Al********* 

► 4 

» DIOCS# 4 

► 4 

*************** 



DETERMINE OPERATION TYPE 



INITIALIZATION 

READ 

WRITE 

CLOSE 



DASINT 
DASREAD 
DASWRITE 
DASTERM 



THIS MODULE IS CALLED BY 
IHCFCOMH/IHCECOMH TO IMPLEMENT 
DIRECT ACCESS READ, WRITE AND 
FIND REQUESTS. 



**** 




♦ 02 * 




* C2 ♦ - 


"1 


* * 

♦ ♦*♦ 


DASREAD 


. ♦. 


CJ 


*. 


. » 


*. 


.* IS 


RECORD 
BUFFER 


♦. IN 



»***»C3** ******** 



D2 *. 

.* ♦. 

. • IS THIS A *. 

•.FIND REQUEST . 



t****£2 ********* 



*»**»D3********** 



» READ A RECORD *<- 



*«***Dt ********** 
♦INSERT RELATIVE* 
♦RECORD NO. INTO* 
-* BLKREFA OR * 
* BLKREFB FIELD * 
» » 

***************** 



**** 

♦ 02 ♦ 

♦ E3 *--■, 

♦ * 

**** 

DASEND V 

*****H2********** 

♦GET ASSOCIATED • 

♦ VARIABLE'S ♦ 
I— >♦ ADDRESS AND ♦- 

♦CURRENT RECORD ♦ 

♦ NUMBER ♦ 



*****f2** ******** 

* PLACE BUFFER ♦ 
» POINTER AND ♦ 
•BUFFER SIZE IN ♦ - 

♦ REGISTERS ♦ 



♦♦♦♦♦E5 ♦♦♦♦♦♦♦♦»* 

♦ UPDATE ASSOC • 
» VARIABLE SO * 

->*THAT IT POINTS ♦ 

♦ TO RCD JUST ♦ 

♦ READ * 



♦ UPDATE 

♦ ASSOCIATED 

♦ VARIABLE SO 
♦THAT IT POINTS 
♦TO NEXT RECORD 



•*FS********* 

RETURN TO « 

CALLER » 



Jl 



♦ . 



.•IS D8RN A *. YES 

•.DIRECT ACCESS.* 

*. . * 

*. .* 

». .» 
NO 



.* FREVIOUS *. 
— >». OPERATION .* 
♦ . .* 


IfES 




», 


NO 


V 

• *•♦• 

• 03 ♦ 

• D2* 

• * 
♦ 




GETUB 

»«»*«H2* 

• CONSTRUc 

• BLOCK. 

• ADDR 

•SsSIGNM 


>»»•»»♦♦* 
rt UNIT ♦ 
INSERT * 
T UNIT ♦ 
«TO UNIT* 
SNT TBL ♦ 




CKDISP 

♦**»»H3 •*****•**♦ 

* ♦ 

* EXAMINE • 
. — >^JFCBIND2 FIELD ♦ 

• IN JFCB ♦ 

♦ ♦ 



READJFCB , . 

•••»*J2** **»**•♦* 

• READ JOB FILE ♦ 
» CONTROL BLOCK » 
•(JFCB). INSERT *- 

• BUFNO VALUE ♦ 

• INTO DCB ♦ 



NEW DATA 
SET TO BE 
. CREATED . 



(•♦♦• 
•03 • 
->• El 



**************** 
♦IHCERRM 



-| IF EXTENDED 
! ERROR HANDLING 
IS NOT PRESENT, 
IHCERRM ENDS 
i EXECUTION 



* 


• . 


YES 


WRITE REQUEST. 


.... 


*• • • 




♦. . ♦ 




♦. . ♦ 




» NO 


• »♦ 






♦03 






♦ B 






♦ 






♦ 


" 




. ♦. 




m ♦. 




. • ♦. 




♦ READ OR ♦. 




FIND RI 


iQUEST . 


♦ 



♦IHCERRM ♦ 


• ERROR MESSAGE * 

• IHC236I ♦ 


I .♦.. 


1 ♦0<t ♦ 
!•->♦ JS ♦ 

* * 


♦ ♦♦♦ 


♦SET FIND SWITCH^ 

♦ OFF ♦ > 



i IF EXTENDED 
[ERROR HANDLING 
•IS NOT PRESENT, 
I IHCERRM ENDS 
! EXECUTION 



t**K5********* 
RETURN TO • 
CALLER * 
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Chart G2. IHCDIOSE/IHCEDIOS (Part 3 of 5) 



>*****»**« 



CRWRITE 

*•*•*£!** ******** 

» i.KtATt AND • 
•FORMAT NEW DATA* 
•SET, USING BSAM* 

• WRITE MACRO * 

* • 
•***•***»******«* 



►****D1 •♦*♦♦♦< 



OPEN DCfi FUR 

DATA SET FOR 

DIRECT ACCESS 

PROCESSUS, 



•♦•♦•Fl ♦•♦*•••♦•• 

• INSERT RECORD • 

• NUMBER INTO • 
•RECNUM FIELD OF* 

• UNIT BLOCK • 



*****Gl********* 
♦INSERT ADDH OF 
•OECBA SKELETON 

• INTO CURBUF 

• FIELD OF UNIT 

• BLOCK 



•••••HI********** 
♦INSERT ADDR OF • 

• DECBB SKELETON • 

• INTO NXTBUF • 

• FIELD OF UNIT ♦ 
♦BLK IF 2 BUFFERS 



***»tjl ••*«*••••• 
•INSERT ADDR OF • 

• I/O BUFFERS • 

• INTO DECB • 
♦SKELETON(S) IN ♦ 

• UNIT BLOCK ♦ 



♦ ♦•♦♦«.*♦♦♦♦♦♦♦♦ 

•INSERT ADDR OF 

♦ BLKREKA INTO 
•DECB A SKELETON 

♦ IN UNIT BLOCK 



*****C2********* 
♦INSERT ADDR OF 

• BLKREFB INTO 
->»DECBB SKELETON 

* IN UNIT BLOCK 
♦IF TWO BUFFERS 



♦.WRITE REUUEST. 



WRITE A RECORD 



•*•*******»***« 

SECONDARY 
ENTRY 



*****Ci* ********* 

♦ OBTAIN NEXT • 
•OUTPUT BUFFER, * 

— >• BLANK OR ZERO ♦ 

♦ DEPENDING ON ♦ 
♦DATA SET FORMAT^ 
♦••••*••••*•***** 



••••*D3****»****« 
•INSERT RELATIVE* 
•RECORD NO. INTO* 

♦ BLKREFA OR • 

* BLKREFB FIELD ♦ 



••»**EJ*»«***«**» 

• PLACE BUFFER ♦ 

• POINTER AND • 
•BUFFER SIZE IN • 

• REGISTERS • 



F3 *. 

. 'ENTERED*. 

, • FROM FILE • 

, INITIALIZATN 

*. SECTION .* 



****G3******* 

> RETURN TO 

> IHCFCOMH/ 

> IHCtCOMH 
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Chart G2. IHCDIOSE/I HCEDIOS (Part 4 of 5) 



, ♦ANY PENDING*. 

I/O 

♦OPERATIONS. * 



♦♦•*C3***»****» 



»«♦♦♦*»»*♦»«♦♦« 



*****D3********** 

• FREE MAIN ♦ 

♦ STORAGE ♦ 

♦ OCCUPIED BY * 

* UNIT BLOCKS ♦ 



♦♦♦♦E3 ♦♦♦♦♦♦♦♦♦♦ 

• 

CLOSE DCBS FOR ♦ 

DIRECT ACCESS ♦ 

DATA SETS ♦ 



> RETURN TO • 

► CALLER « 



****K2********* 
» « 

» RETURN « 



****G3********* 

I 4 

> GETUAT « 



, ♦ DSRN *. 

. NEGATIVE OR . 
♦ .TOO LARGE. ♦ 



***«»K3 ♦♦♦♦♦♦♦♦♦♦ 

• » 

* GET UNIT ♦ 
-♦ ASSIGNMENT ♦ 

♦ TABLE POINTER ♦ 



♦ GET PARAMETER ♦ 

♦ FOR ERROR ♦ 
♦MESSAGE IHC22<m 



»-♦-♦-♦-♦-•-♦-♦-• 



»♦♦• 
♦ 01 ♦ 
->♦ D3 



9 

» GET PARAMETER 
>» FOR ERROR 
♦MESSAGE IHC2201 



♦LINK SAVE AREAS^ 
♦AND SET UP FOR ♦ 
♦ ERROR MSG ♦ 



♦ ♦♦« 

♦ 014 ♦ 

♦ J5 ♦-> 






•»t*K5*»»****** 
* RETURN TO ♦ 
•CALLER AT ERRORS 
» OFFSET ♦ 
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Chart G2. IHCDIOSE/IHCEDIOS (Part 5 of 5) 



♦•♦**3********* 

> * 

► PRCMNTPC « 



•»***B3 ********** 



SET UP 

__JkMETER£ , 

ERROR MESSIk 



»-•.•-».»_»-*-•-• 



I IF EXTENDED 
! ERROR HANDLING 
{IS NOT PRESENT, 
| IHCEJWN ENDS 
EXECUTION 



****E3********* 

> * 

» RETURN « 
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Chart G3. IHCNAMEL 



****A1********» 
» i 

» FRDNL* * 



****A3»*»»*»*»» 

* * 

* FWRNL# * 

* * 
*************** 



THIS MODULE IS CALLED B¥ 

THE COMPILER-GENERATED CODE TO 

IMPLEMENT NAMELIST I/O REQUESTS. 



I/O ERROR 
FIXUP IN 
. PROCESS . 



***»C1********» 



** **D1 ♦*♦••♦ *♦* 
TERMINATE JOB ♦ 



READ RECORD 



► . NAME FOUND 



. *I/0 DURING ♦. NO 
». I/O ERROR .♦ — - 
*. FIXUP .♦ 



****C$* ******** 



****03********* 

* * 

♦ TERMINATE JOB • 



••••E3»»*< 



••••H3*»******* 
» « 

• RETURN « 



*****j\******l 



********** 



XI********* 

4 

RETURN « 
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Chart GU. IHCFINTH/IHCEFNTH (Part 1 of 3) 



•••♦A3********* 

♦ ARITH* ♦ 

* * 

*************** 



****B3********* 



• IS 

INTERRUPT 
♦.IMPRECISE. 



DETERMINE INTERRUPT 


TYPE 


SPECIFICATION 


SPEC 


DATA 


RETURN 


FX-PT. OVERFL. 


ALERT 


FX-PT. DIVIDE 


FXDVC 


FL-PT. SIGN. 


ALERT 


DEC. OVEKFL. 


ALFRT 


DEC. DIVIDE 


DVCHK 


EXP. OVERFL. 


FPOVF 


EXP. UNDERFL. 


FPUNF 


FL-PT. DIVIDE 


DVCHK 



►***G1 ********** 
LOAD IHCADJST < 



FXDVC 
YES . 



•IS EXTENDED*. 
ERR HANDLING . 
♦. PRESENT . • 



>•• ••G3» •«»♦•• i 



y-\ 



. • FLOATING ♦ 
, POINT DIVIDE 
♦. CHECK .• 



>»♦♦ 
>***GS*********i 



***** Ml ********** 

• SET UP ERROR ♦ 
•MESSAGE IHC210I* 

• FOR BOUNDARY • 

• ALIGN ERROR ♦ 



*****H5* ********* 
•PICK UP DATA IN* 

♦ ERROR FROM • 
♦FLOATING POINT ♦ 

♦ REGS ♦ 



*****j\ ********** 

* SET UP • 

♦PARAMETERS FOR « 
» IHCADJST • 



.* ARE ♦. 
.♦INTERRUPTS ». YES 
►.TO BE IGNORED. ♦ 1 



♦•••Kl ••**•♦♦** 
• • 

•GO TO IHGUWST ♦ 



NO ***** 
*♦•» *02 * 
♦02 * ♦ E3* 
->* C3 ♦ ♦ • 



248 



Order No. GY28-6638-1, page revised 1/15/71 by TNL GY28-6847 



Chart G4. IHCFINTH/IHCEFNTH (Part 2 of 3) 



♦ ♦♦♦ 

♦ 02 • 

♦ C3 ♦ — -, 

:*.*• I 



>***C2********** 



YES .♦ EXTENDED ♦. 

*.ERR HANDLING . • 

♦. PRESENT .* 



•****02********* 
♦IHCERRM 


♦FIOCS* • 


♦ WRITE ERROR 

♦ MESSAGE 


• WRITE ERROR ♦ 

• IHC210I ♦ 






• ♦• ♦ 

• 02 • 

♦ E3 ♦-> 

* * 








♦ ••• \ 

SKIPIT .< 
E3 
. ♦ 
. • UNDE1 

>♦. oVERFI 

o.DIVH 


7 
' *, 

<FLOw' «. 
X5W OR . ♦ 
)E CK. • 



. ♦ EXTENDED • 
.ERR HANDLING 
♦ . PRESENT . • 



»G3** ******* 



• « • H 3 »♦•»»••♦ » 

RETURN TO « 

SUPERVISOR « 
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Chart GH. IHCFINTH/IHCEFNTH (Part 3 of 3 ) 



NO . ♦ EXTENDED *. 


r ♦.ERR HANDLING .* 


♦• PRESENT . ♦ 


I *. .* 


* *. .» 


• *••» • YES 


• 01 • 




♦ G5» 




* * 




* 




" 


*****C3********** 


» • 


• SET UP ERROR » 
•MESSAGE IHC207I* 


• * 


• • 


1 .... 


•01 ♦ 




L->* G5 » 



.•'extended "*. 

'•ffpRlsWV' 



***** 

♦ 01 • 

♦ G5* 



.... 
• 01 ♦ 
->• Ob 



.... 

♦03 » 

• F3 ♦--, 

' * 1 

.... V 



«»«*«F2*** ....... 

• SET UP ERROR • 
•MESSAGE IHC210I* 
» FOR IMPRECISE »<- 
. INT • 



YES •• EXTENDED ». 

..ERR HANDLING .» 

>. PRESENT . * 



»».**G3.» ........ 

•DETERMINE WHICH* 
♦AND THE NUMBER » 
•OF BITS TO TURN* 



t...*H3. *......«< 

► DETERMINE • 

► INTERRUPT • 

► TYPE<S) « 



♦02 ♦ 
l->« C3 
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Chart G5. IHCADJST 



»*•• 



n 



*****kX********** 

♦ ISSUE SPIE TO ♦ 

♦ TAKE CARE OF ♦ 
♦INTERRUPTS THAT* 
♦OCCUR IN MOVING* 

♦ DATA ♦ 



♦♦♦♦Bl ♦♦♦♦♦♦♦♦♦♦ 



*****q\********* 
• 

♦ MOVE DATA TO 

♦ DOUBLE WORD 

♦ BOUNDARY 



***«At4********* 

> * 

> IHCADJST ♦ 

N « 

*************** 



♦ * * * ♦ BU *♦****♦**« 

* CHECK ADDR OF ♦ 
♦INSTR FOLLOWING* 

* THE ONE WHICH ♦ 
♦CAUSED BOUNDARY* 

♦ MISALIGNMENT * 

***************** 



.♦ NEXT *. 
.♦INSTRUCTION*. YES 

, ON WRONG . * 

♦.BOUNDARY .* 



****D1 ********* 

ISSUE SPIE FOR 

APPROPRIATE 

INTERRUPT 

HANDLING 



****E1 ******♦♦♦ 

REEXECUTE INST 

WHICH CAUSED 

ORIGINAL 

INTERRUPT 



. ♦ NEW *. NO 

. INTERRUPT .» 

♦ .OCCURRED . » 



****G1 ••••••••• 

ISSUE SPIE TO 

RESTORE 
ORIGINAL PICA 



.♦ WAS ♦. 
. • CONDITION ♦. NC 
->*.CODE AFFECTED. ♦-- 



•***G2******** a 

MOVE NEW 

CONDITION CODE 

TO PIE 



****D3********** 



•«**«*«*«****»»« 



►IS BOUNDARY*. 

VIOLATION . 

>. HANDLED . ♦ 



•****F3********«* 

• • 

♦ MOVE OP CODE • 
•AND Rl OF INSTR* 
•TO A TEMP AREA • 



• ***D<4*****"** 

OBTAIN 

INSTRUCTION 

WHICH CAUSED 

SPEC INTERRUPT 

a************** 



l**FU********* 



, • EXTENDED • 
. EKH HANDLING 
•. INCLUDED . • 



****H1********* 

♦ RET TO ARITH* 
•TO PROCESS NEW 

• INTERRUPT 



****H2********* 

ISSUE SPIE TO 

RESTORE 
ORIGINAL PICA 



•***J2********* 
> < 

» RETURN < 



•♦♦♦J3»**»****» 

DECREMENT 

MESSAGE COUNT 

AND PLACE NEW 

COUNT IN 

IHCUOPT 



V 
»****GU* •*••♦♦•♦* 

» MODIFY INSTR • 

• ADDRESS TO • 
•POINT TO INSTR ♦ 

• WHICH CAUSED * 
► INTERRUPT * 



RESET PSW 

ADDRESS IN PIE 

TO INSTR WHICH 

CAUSED 

INTERRUPT 



»*««»K3****«****« 

* * 
•CALL IHCFINTH/ • 
« IHCEFNTH TO ♦ 

* WRITE MESSAGE • 



*****C5********** 

♦ ISSUE A SPIE ♦ 

♦ MACRO TO STOP ♦ 
>♦ SPECIAL * 

♦ INTERRUPT ♦ 

♦ HANDLING ♦ 
***************** 



****DS********* 

* RETURN TO * 
♦SUPERVISOR FOR * 

♦ ABEND * 

*************** 
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Chart Gb. IHCIBERH 



**** A3 •**♦***** 



*************** 



***B3********* 



(IUN) 
*************** 



****C3**»****** 



*****£}!*********• 


• BRANCH 

• IHCERRM 

♦ HANDLE 

« WRITING 

♦ ERROR 


TO ♦ 
TO • 

THE • 
OF ♦ 

MSG • 



l***E3********* 

I BEX IT RTN OF 

IHCFCOMH/ 

I HC ECOMH 



NOTE: 

IHCIBERH IS ENTERED 

VIA CALLING SEQUENCES 

GENERATED AT COMPILE-TIME 
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hart Gl . IIK.'^TAF, (Part 1 of 2) 



NOTE; THIS MODULE IS LOADED 

ANIJ CALLED BY THE STAE EXIT 
ROUTINE SECTION OF 
IHCFCOMH'IHCEOOMH 



♦***A3********* 

* IHCSTAE * 

♦ * 
*************** 



*****^2** ******** 

♦ SAVE IBCOM* ♦ 
♦PARAMETER LIST ♦ 

♦ POINTER AND ♦ - 
♦ADDRESS OF SAVE^ 

♦ AREA ♦ 
***************** 



DETERMINE I/O CODE 



RESTORE 
EXITRTN2 
NOIO 
WTP 



♦ INSERT I/O 
♦STATUS IN ERROR 

♦ MSG 

**************** 



• SFT POINTER TO 

• AHEA 



!FT POINTER TO 

•:TAF. CONTROL 

BLOCK 



GET SYSTEM/USER* 

ABEND CODE AND • 

PROGRAM PSW • 



•♦♦♦♦Gl«» 


******** 


•CALLCNVT 




• .*-*-*-* 


*-»-•-• 


• f ( INVERT 


CODE ♦ 


♦ AND 


PSW • 



>*»J1 •♦»»•♦»»« 



* 

♦GET SYS1 
♦ABEND C< 
♦ PROGRJ 

♦ 
♦•»♦»*♦* 


>******** 

* 

rEM/USER^ 
3DE AND ♦ 
\M PSW ♦ 

* 
********* 


****C~i********** 

> * 

> INSERT I/O ♦ 
►STATUS IN ERRORS 

MSG ♦ 

> * 


*****cu* ********* 

* ♦ 
♦GET SYSTEM/USER^ 
♦ABEND CODE AND ♦ 

* PROGRAM PSW ♦ 

* • 


• ♦*» 

* * 

♦ D2 ♦•■> 

• • 
**** 

i 


7 


<■->* Dl ♦ 

» * 


I 

♦ *»♦ 

» « 
♦ 02-*- . 



.*-*-*.*-»-*-*-* 

CONVERT ABEND • 

CODE AND PSW ♦ 

FOR MESSAGE ♦ 



*****E2* ********* 

♦ ISSUE TWO WTO ♦ 
♦MACROS TO WRITE* 

♦ ERROR MESSAGE • 

♦ IHC2U0I ♦ 



»IS ABEND IN*. 

LIBRARY 
>. ROUTINE .» 



RESTORE STAE 
SUPER VISOR SAVE 
AREA POINTER 



****J2********* 

SET RETURN 

CODE=0 (NO 

RETRY) 



t**K2********* 
RETURN TO « 
SUPERVISOR • 
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Chart G7. IHCSTAE (Part 2 of 2) 



►•**A1*»*»****« 



j ENTRY IS FROM 
I SUPERVISOR 



****H3** ******* 
t < 

► CALLCNVT * 



• » * ♦ Bl ********** 



*****C\**** ****** 

* ISSUE STAE * 

• MACRO TO * 

• SPECIFY A NEW * 

* EXIT RTN ADDR * 



•****B3 ********* 

* SET UP 
♦PARAMETERS FOR 

* CONVERSION 

* ROUTINE 
» 
**************** 



»-•-*-*-»-♦-*-»-• 
♦CONVERT SYSTEM ♦ 
♦ABEND CODE AND ♦ 
♦ PSW TO HEX ♦ 



••••Dl ********** 



♦♦♦♦D3 ♦♦♦♦♦♦♦♦♦ 
> < 

» RETURN « 



*****^1 ********** 

* * 

* GET ADDR OF ♦ 
» STAE CONTROL * 

* BLOCK POINTER * 



<*** Gl ********** 
RESTORE I/O » 



*****ft\ ********* 
•ISSUE SPIE FOR 

• PROTECTION 
♦ADDRESSING AND 

• SPECIFICATION 

• INTERRUPTS 



*****JX ********** 
•SEARCH THROUGH ♦ 

• CHAINED SAVE • 

• AREAS, * 
•BEGINNING WITH * 

• SUPERVISOR'S • 



.♦ CAN ♦. 

. ♦ TRACEBACK 
MAP BE 

•.COMPLETE . 



IF EXTENDED 

ERROR HANDLING 

IS NOT PRESENT, 

IHCERRM ENDS 

EXECUTION 



****K2* ******** 
♦CALL IBEXIT TO • 
» TERMINATE JOB • 
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Chart G8. IHCERRM (Part 1 of 2) 



*♦♦* 

► * 

► A3 « 

► * 

**** 



»*»* 

* » 

* A5 » 

* ♦ 
»*** 



***************** 



•SAVE REGISTERS * 

* AND LINK SAVE * 

* AREAS • 

* * 
***************** 



•****C1 ********** 

* HAKE INITIAL • 
♦CALL TO FIOCS# * 

* <GET BUFFER • 

* ADDRESS) * 



| CALLED BY IHCFCOMH/ 
j IHCECONH FOR ERROR 
I SUMMARY DURING LOAD 
I MODULE TERMINATION 



{called by 
[library routine 
[detecting 

! ERROR 



•****A3********** 

♦ PRINT ♦ 
♦TERMINATION DUE* 

♦ TO DUPLICATE * 

* ENTRY MESSAGE * 

* * 
***************** 



**** 

♦01 * 

* B3 *-> 



• •** 
*****B3********** 



***************** 



***»*C3********** 
♦IHCETRCH ♦ 
♦-♦-*-♦-*-»-♦-*_* 
* * 

♦GIVE TRACEBACK ♦ 



****»A5* ********* 

* * 
♦GET ADDRESS OF * 

♦ LAST ENTRY IN ♦ 

♦ TABLE * 

* * 
***************** 



*****B5 ********* 



**************** 

***• 

♦ i 

♦ C5 *-> 

♦ 4 
**** 

*****C5********** 

♦ • 

♦ GET NUMBER OF ♦ 
♦ERRORS FOR THIS* 

♦ ENTRY ♦ 

♦ ♦ 
***************** 



.* *. •**• 

.♦ ENTRY FOR ♦. YES ♦ ♦ 
♦. SUMMARY .♦ >♦ A5 ♦ 



»**»E1 »*••♦•»•♦ 



Fl *. »»»*»p2********** 

.♦ I/O ♦, ♦INDICATE BUFFERS 

.♦ERROR <218>*. YES ♦ AREA FOR ♦ 

♦.OR ERROR 206 .♦ >*MESSAGE MUST BE»- 

*. OR 226 .* * FREED * 



*****DU»********* 

* * 

* * 
->» ISSUE FREEMAIN * 

* * 

* * 
***************** 



»***E3********* 

♦ TERMINATE JOB ♦ 

♦ VIA IBEXIT ♦ 



F3 ♦. 

. ♦ ♦. 

ERR • 218 

'♦. .♦* 
♦ . . ♦ 
♦ NO 



♦ PRINT HEADING ♦<- 



* 
* 

>• 

* 
• 


GET EXIT 

ADDRESS IF 

SPECIFIED 


* 
• 
* 
• 
• 



*****F5»»******* 

♦ PUT ERROR 

♦ NUMBER AND 
♦ERROR COUNT IN 

♦ MESSAGE 



.♦ *. **•• 

. ♦ DUPLICATE ♦. YES ♦ ♦ 
ENTRY .♦ >♦ A3 ♦ 



•****BX********** 

♦ SET ENTRY ♦ 

♦ SWITCH AND ♦ 

♦ STORE ENTRY ♦ 

♦ NUMBER ♦ 



****G5********* 
PRINT LINE 



»*»**HS********* 



_:OR 
„iER IN 
TABLE . 
. * 



»»***K1*******»*« 

• • 
•GET TABLE ENTRY* 
•FOR THIS ERROR ♦ 

♦ NUMBER ♦ 



♦ PRINT MESSAGE ♦ 

->*THAT ERROR NO. • 

♦IS NOT IN TABLE* 



YES 


• 


*. 


. • 


MORE ENTRIES .* 


1 


*. . ♦ 


1 


♦. . ♦ 


V 


♦• .♦ 


• ••• 


> NO 


• * 






» C5 » 






• • 






*»*• 







••••K5»******** 

> < 

► RETURN * 
» * 

**»•**•••****•* 



***** 
•02 • 
• Al* 
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Chart G8. IHCERRM (Part 2 of 2) 



. * I/O ERROR • 

.EXIT ADDRESS 

♦. GIVEN . * 



CONTINUE 

(BA.^ED ON 

. COUNTS* . 



»*»**A2 *♦»♦**♦♦*• 



*»***B2* ***•♦•••• 

•PRINT EXECUTION* 

♦TERMINATING DUE* 

->*TO ERROR COUNT ♦ 

• MESSAGE ♦ 

• • 



» PRINT *. 

MESSAGE 
(BA5FD ON 

COUNTS 1 . 



PRINT 
BUFFER 
.CONTENTS 



♦GET ADDRESS AND* 
>• LENGTH OF • 
♦ MESSAGE • 



♦GET ADDRFSS AND 
>♦ LENGTH OF 
•CURRENT DUFFER 



<ET RETURN CODE 



ALL II;. FR EXIT • 



• ••*• 


F2**** 


»••••• 


•SET 


RETURN 
TO 


CODE* 


• ••* 






• 02 • 

• G2 


# "i 





tttMC3«*MttM< 

• PRINT MESSAGE 
•AND SET MESSAGE 

>• PRINTED 

• INDICATION 



,.,. D 3, .,,,,,. 
PRINT BUFFER 



CALL TRAl E 



.tmijn»Mitti 

ISSUE FRFEMA1N 



• RESTORE UiiFRii 

• REGISTERS AND 
•TURN OFF ENTRY 

• SWITCH 



•♦••J2»*«» •♦•*• 



••••J3»« •*«»«»« 
♦ EXIT TO < 

•SPECIFIED POINT" 



RESTORE ONE 

SAVE AREA TO 

CHAIN 



♦FlOCSIt ♦ 

• REINITIALIZE •• >• 

• FIOCSH ♦ • 

Gu" ' •. 

. •' MESSAGE *. NO 
♦. PRINTED .♦--•■ 

'•..•' V 

• YES •••• 

• G2 • 



****Hb********** 

* 

PRINT MESSAGE * 

INDICATING USER* 

FIXUP * 



• *** 

• • 

■>♦ G2 ♦ 



PRINT MESSAGE 

INDICATING 

STANDARD FIXUP 



• ••• 
* « 
->• G2 * 
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Chart G9. IHCFOPT (Part 1 of 3) 



SAVE REGISTERS * 
♦ 
♦ 

**************** 



>B1 ********* 



**************** 

**** 

* * 

♦ CI *-> 

* * 
**** 

NEXT 

♦♦***C1 *♦»*♦*♦♦♦• 
♦FINDENTR * 
*-♦-»-♦-♦-♦-»-♦-» 
•GET ADDRESS OF ♦ 
♦ENTRY FOR THIS ♦ 

♦ ERROR NO. * 



♦ 01 ♦ 

♦ A2 ♦ --, 

* * J 

• •*♦ v 




A2 ♦ 

.♦NO. OF 

. ♦MESSAGES 

♦. PRINT EQ 


Jo* 



♦ ♦♦**A3*«**^**^» 

♦ ♦ 

♦ SET ENTRY TO ♦ 
>♦ PRINT TO ♦ 

♦ MESSAGES ♦ 

♦ ♦ 
***************** 



*****pm********* 

♦ STORE NO. OF 

♦ MESSAGES TO 
♦PRINT IN TABLE 

♦ ENTRY 

♦ 

MMttttlttMttl 



*****&$********* 



>**************( 



*****cn ********* 

♦GETENTRY 

»-»-♦-*-♦_«-»-*- 

♦ GET TRACEBACK 

♦ INDICATION 

♦ 
**************** 



**** 
♦ 02 ♦ 
• E2^<-, 



Dl" "♦. 

. ♦ *, 
♦TABLE ENTRY^. NO 


IGNORITM .*. 

D2 ♦. 
.♦ FIRST 
.♦ TIME 


♦. . ♦ 
♦. . ♦ 


♦. (SWITCH 
♦ . ON ) . 



n 



***** El ♦♦•«•*•»* 
♦GETENTRY 
*-•-•-•-*-*-*-*- 
♦ GET NO. OF 
♦ERRORS ALLOWED 



♦ ♦♦♦ 

• < 
' H5 « 
» < 

• ••• 



NO 


♦ SIX ♦ 


_♦ 


PARAMETERS 


1 


♦.SUPPLIED .♦ 


1 


♦. . ♦ 


V 


♦ . . ♦ 


♦ *•*« 


♦ YES 


♦02 ♦ 


1 ♦♦•♦ 


♦ E2^ 


♦02 


♦ • 


<■->* Bl 



****Eb********* 

INDICATE 

TRACEBACK 

REQUESTED 



*****G\********t 

* 

♦ STORE NO. OF 

♦ERRORS ALLOWED 

♦IN TABLE ENTRY 



.♦NO. ALLOWED^. 
, GT OR EQ TO . 
♦. 2S6 .♦ 



**»**f{2* ********* 
♦SET ERROR COUNTS 

♦ TO ALLOW TO ♦ 
->^ZERO (ALLOW ALL* 

♦ ERRORS) ♦ 



♦♦♦♦•Jl ********** 
♦GETENTRY ♦ 
♦-»-♦-♦-♦-»-♦-»-♦ 

♦ GET NUMBER OF ♦ 

♦ MESSAGES TO ♦ 

♦ PRINT ♦ 

******••**•*****• 



,************** 



. ♦ NO. ♦ . 


♦ ♦♦♦ 


♦MESSAGES TO*. 


YES ♦ 


PRINT LT OR . 


♦ >♦ A2 


♦. EQ TO . ♦ 


♦ 



, ♦FIRST TIME 
THROUGH 
♦ .SWITCH ON. 



♦ ♦♦♦♦^♦♦♦•••••< 
♦UPDATE ERR HO. 

♦ BY ONE (TURN 
-->♦ FIRST TIME 

♦THROUGH SWITCH 

♦ ON) 



.♦ ERROR ♦. 

.♦ NUMBER GT ♦. 

). MAXIMUM TO BE. 

♦ . CHANGED .♦ 



• YES 
I .... 

• 02 « 
>■->* E2 



• ♦♦♦ 

♦ • 

♦ AD • 

♦ • 
»•*♦ 



***** 

♦ 02 ♦ 

♦ Al» 
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Chart G9. IHCFOPT (Part 2 of 3) 



**»♦ 




♦ 02 * 


• Al ♦--, 

* * 1 

• ♦. 
Al *. 


• ♦ ♦. 


. ♦ ♦. 


*. ERROR 212 . * 




*. > * 


*. . * 


* NO 


»*** 




♦ 02 * 




• Bl *-> 




* * 








■i 


*****&! ********** 


♦GETENTRY ♦ 


♦GET UPPER RANGE* 


* n ? "0. TO BE ♦ 


♦ CHA 


<K3ED * 



»****Ci ********* 
♦TURN ON SWITCH 

♦ INDICATING 

♦ FIRST TIME 

♦ THROUGH 



****Dl********* 

STORE UPPER 

RANGE AS 

MAXIMUM TO BE 

CHANGED 



• *♦• 

♦ 01 • 
->♦ H5 



*****H2** ******** 
♦GETENTRY ♦ 
*-♦-♦-*-♦-•-*-♦-« 
>♦ GET CONTROL * 

♦ CHARACTER » 

♦ INDICATION ♦ 
***************** 



♦♦♦♦♦B2 ♦♦♦♦♦♦♦♦♦♦ 

♦ INDICATE NO ♦ 

♦ CONTROL ♦ 
♦CHARACTER TO BE^ 

♦ SUPPLIED ♦ 



♦.EQUALS CODE-1.* — 



****D2********* 

INDICATE 

CONTROL 

CHARACTER TO BE 

SUPPLIED 



♦ ♦• 
02 ♦ 
E2 •-> 



• »♦ 

SHED 

♦♦♦♦E2 ********** 



SAVE REGISTERS 
*************** 



♦♦♦♦B3 ♦♦♦♦♦♦♦♦♦ 



*****C3* ******** 
♦PINDENTR 

♦ -♦<-♦-♦-♦-♦-♦-♦- 
♦GET ADDRESS OF 

♦ TABLE ENTRY 



****D2********* 

GET ADDRESS OF 

WHERE TO SAVE 

ENTRY 



>***»E3********** 



SAVE REGISTERS ♦ 

♦ 

♦ 

**************** 



****BH********* 



♦FINDENTR ♦ 
♦-♦-♦-♦-♦-♦-♦-♦•♦ 
♦GET ADDRESS OF ♦ 
♦ TABLE ENTRY ♦ 



♦ ♦♦♦ 
NO ♦ < 
• >♦ £2 < 



♦GET ADDRESS Or ♦ 

♦ WHERE TO ♦ 

♦ RESTORE TABLE ♦ 

♦ ENTRY FROM ♦ 



t**F2******** 
RETURN 



• ♦♦• 

> » 
» E2 ♦ 
» ♦ 

♦ ♦♦♦ 
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Chart G9. IHCFOPT (Part 3 of 3) 



FINDENTR . *. 


Al *. 


.♦ ERROR *. 


YES .♦ NO. LT OR ♦. 


r *. EQ TO FIRST .* 


♦. TABLE .* 


1 ♦. ENTRY. ♦ 


V ♦. .* 


*♦♦♦♦ ♦ NO 


♦01 * 




• A2* 




* * 




• 




'' 


• *. 


Bl •. 


. * ♦. 


. *ERR NO. GT ♦. YES 


♦ .NO. OF TABLE .♦ 


*. ENTF 


UES .* 



***»*A2**** ****** 



***************** 



**»**B2** ******** 
♦WRITE ♦ 

•-•-*-*-*-*-*-*-* 

* WRITE MESSAGE ♦ 

* 902 * 

* * 
***************** 



**** 
♦ 02 « 
>♦ E2 



»»»*C1****»***» 



•»**D2********* 
• RETURN • 



.* LAST *. YES 

*. PARAMETER .* , 

♦. GOTTEN . ♦ 1 



***** 

♦ 02 ♦ 

* E2* 



***** S3 ********** 



»***C3*******^« 



****D3 ********* 

> * 

► RETURN * 



•.IS IT ERRSAV 



•»***G 2********* 

^•INITIALIZATION 
•CALL TO FIOCS* 



****U1 ********* 



• ***K1 ********* 
» « 

» RETURN < 
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Chart G10. IHCTRCH/IHCETRCH 



•***A3********* 
» IHCTRCH/ * 
► IHCETRCH * 



IHCETRCH IS CALLED BY 

IHCERRM. IHCTRCH (ENTRY POINT IHCERRM) 
IS CALLED BY LIBRARY ROUTINES 
DETECTING ERRORS. 



• »•*» b2 •**♦*♦►*♦• 

• SET SWITCH TO ♦ 
•INDICATE ENTRY * 

• FROM ERROR •< 

• MONITOR ♦ 



. ♦ EXTENDED ♦ 
.ERR HANDLING 
». PRESENT .• 



.• PRE- *. 
YES .*CEDING USE 

*. OF IHCTRCH 

» . DONE 



. • ERROR ♦ . NC 
•.CONDITION 217.* — 
•. OR 218 .• 



**•• 

» • 

• en * 

* * 
**** 

1 

•****CK ********** 



.» EXIT 
ADDRESS 
•.SPECIFIED. 



•4»»F3* • ••••••• 

•RETURN TO EXIT < 
• ADDRESS ' 



•***G3******»< 
» RETURN TO 

• 1BEX1T WITH 

• ABORT CODE 



»***H 3******* **l 



***»D14 •*•••***• 



•****E5********** 



FU •. 

. • TABLE •. 
• SIZE • 

EXCEEDED OR 

•• LOOP .• 

•.FOUND.* 

♦. . • 

• YES 



>• D3 • 
• i 

**** 



t****JJ*********t 



• POINT TO NEXT • 

• HIGHEST LEVEL ♦ <- 
•CALLING ROUTINE* 



. ♦ EXTENDED • 
.ERR HANDLING 
•. PRESENT . • 



****Gb********** 

TURN ERROR • 

MONITOR SWITCH • 

OFF • 



•♦••Hi********* 
» RETURN TO • 
> CALLER • 



• •*• 
i • 
> c t • 
» * 

*•*• 
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Chart Gil. IHCFDUMP 



DUMP 

*****A1********* 

♦ SET SWITCH ON 

♦ FOR MONITOR 
♦EXIT (EXITSW = 

♦ X'FF') 

**************** 



. ♦IS THIS*. 
*0 . ♦ A PDOMP ♦. 
— ♦.DURING AN I/O. 
♦. FIXUP .♦ 



•***D1*«*»***»» 
♦BRANCH TO IBCOM* 
•FOR MSG IHC901I* 



•»***£1********* 

* 

• SET SWITCH TO 
->»INDICATE I/O IN 

♦ PROGRESS 



•••• pi *»»•*•*** 

OBTAIN ADDRESS 

OF ARGUMENT 

LIST 



»»•»(- 1 ********* 



***»H1 ***♦♦♦♦♦♦ 

INITIALIZATION 
CALL TO FIOCS» 



•***J1 ********* 



*••»***••*»*♦** 



»*«*»K1********** 

♦ SAVE START OF ♦ 

♦ RECORD AND ♦ 
♦COMPUTE END OF ♦ 

♦ RECORD ♦ 



♦ ♦** 
« 
->♦ A2 * 

I 4 
**♦• 



n 



**** 



♦****A2 ♦+*♦*♦*♦*♦ 

♦ SET CARRIAGE * 

♦ CONTROL FOR ♦ 
♦EJECT (CHAR IS ♦- 

♦ C'l'l ♦ 

♦ * 
***************** 



PDUMP 

*****B2 ********* 
♦SET SWITCH OFF 
♦ FOR MONITOR 

♦ EXIT 

♦<EXITSW=X'00"> 



**** 

* 4 

* AK *-- 

* 
**** 

***** All ********** 



•n 



**************** 



»***»C2 ********* 



A*************** 



• *** 
GETARG 

•****D2** ******' 



***************** 



. ♦ ARE ♦. 
. ARGUMENTS . 
♦. EXHAUSTED. ♦ 



***************** 



«***CU ********** 



• *»* 

> • 

> D2 * 



♦♦♦♦D3********* 



• *•* 

* * 

* J2 ♦ 



• •*♦£!>*♦♦♦♦♦♦♦♦ 

► KETURN 10 ' 

► CALLER * 

» 4 

*************** 



F2 ♦. 

» BYTES • 
TO BE 
DUMPED 
BETWEEN 
►.LIMIT.* 
♦ . . ♦ 



•****F3********* 



•***H3********* 



»****K2*** ***••*< 

♦ GET BUFFER * 

♦ POSITION AND * 

♦ ADDRESS OF < 

♦ CURRENT DUMP * 

♦ LOCATION « 



*-•-*_♦-♦-»-♦-»-• 



Appendix F: Object-Time Library Subprograms 258.1 



Order No. GY28-6638-1, page revised 1/15/71 by TNL GY28-6847 



Chart G12. IHCFEXIT 



****A3********* 
» < 

► EXIT * 

> < 
*************** 



•»*»*B3** ******** 

* 4 

* GET ADDR OF « 

* IHCFCOMH/ « 

* IHCECOHH < 



****C3********* 
• BRANCH TO « 
► IBEXIT < 
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Chart G13. IHCFSLIT 



♦***A3********* 

♦ * 

♦ SLITE « 

♦ * 
*************** 



♦ ♦ • ♦ » B3 ♦**♦****♦ 

* 
* 

♦ GET I 

* 

**************** 

**** 

♦ * 

♦ C3 ♦-> 

♦ * 
**** 



C3 



-»-*-»-»_»_. 



♦ CONVERT BAD 
♦DATA FOR ERROR 

♦ MSG 



IF EXTENDED 

ERROR HANDLING 

IS NOT PRESENT, 

IHCERRM ENDS 

EXECUTION 



.*****D2********* 
♦IHCERRM 

♦ ERROR MESSAGE 

♦ IHC216I 



**»**£!********* 



***** eu ♦»»»»»*«• 



» IE 



**** 

• * 

♦ C3 ♦ 

» • 
**** 



*»***?■}********** 

♦ TURN ON SENSE ♦ 

♦ LIGHT ♦ 

♦ CORRESPONDING ♦ 
♦TO THE VALUE OF^ 

♦ I ♦ 



•***G2********* 
» • 

► SLITET ♦ 



*****H2* ******** 



**** 

♦ • YES . 

♦ C2 ♦< ♦. 

♦ • A 

*»♦♦ 



J2 ♦. 

I GT « 



TO I ON . ♦ 



♦♦♦♦J3*»* ♦♦♦♦♦♦ 
SET J=l 



****QH ********* 

» * 

> RETURN ♦ 



****HH********* 
SET J=2 



*****jH********» 
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Chart G1U. IHCFOVER 



» A 

» OVERFL » 

* 4 

*************** 



»*o»»Bl »♦»•**•**< 
• SET J=2 « 



B2 *. 
• * *. 

3 .♦ 

-•• UNDERFLOW 
♦. 

♦. .* 

*. .* 
• YES 



»****C3* ********* 

► SET J=l * 



♦TURN OVERFLOW/ » 
>* UNDERFLOW » 
• INDICATOR OFF • 



****E1********* 

» I 

• RETURN * 
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Chart G15. IHCFDVCH 



♦♦♦♦B2^******** 
SET J»l 



♦♦♦♦A3********* 

♦ < 

* DVCHK ♦ 

» 4 

*************** 



B3 *. 
.♦DIVIDE ♦. 
YES .* CHECK 



-*. INDICATOR ON . ♦ 
♦ . (X'FF* ) .* 



••••C3********* 
SET J=2 



♦ TURN DIVIDE ♦ 
->^CHECK INDICATORS 

♦ OFF (X'OO) ♦ 



•••• £ 3 ♦♦♦•♦♦♦♦ ♦ 

> 4 

► RETURN * 
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Chart G16. IHCDBUG (Part 1 of H) 



••••A3********* 

• 4 

• DEBUGf • 



♦.SELECT OPTION.* 



OPTION 


ROUTINE 


LOCATION 


TRACE 


TRACE 


GF01F1 


SUBTRACE ON 


SUBTREN 


GF01F2 


SUBTRACE OFF 


SUBTREX 


GF01F3 


UNIT 


UNIT 


GF01F4 


INIT VARIABLE 


INITSCLR 


GF01F5 


INIT ARRAY ELEMENT 


INITARIT 


GF02A1 


INIT ARRAY FULL 


INITARAY 


GF02A2 


SUBCHK 


SUBCHK 


GF02A3 


TRACE ON 


TRACEON 


GF02AK 


TRACE OFF 


TRACEOFF 


GF02DM 


DISPLAY 


DISPLAY 


GF02A5 


BEGIN I/O 


STARTIO 


GF03A1 


FINISH I/O 


ENDIO 


GF03A2 



••TRACEFLAG OFF.* , 



•***G1****< 
• RETURN 



»****|]1 *••»••••*• 



SUBTREN 

•****F2**** ****** 
♦MOVE ^SUBTRACE" • 

• AND NAME OF • 

• PROGRAM INTO • 

• DBUFFER • 



•MOVE ' SUBTRACE ♦• 

• RETURN* ' INTO ♦ 

• DBUFFER • 



• ••* 
■ >♦ BM 



••••GD********* 
» « 

► RETURN * 



»SAVE DATA TYPE » 
***************** 



>****GS»* ******** 

» COMPUTE * 
► LOCATION OF * 
» VARIABLE * 



*****H5* ********* 

* * 
* OUTNAME * 

* PLACE VARIABLE • 
•NAME IN BUFFER * 



»**»*J1 ********** 

» OUTINT- « 

► CONVERT LABEL « 
• TO EBCDIC « 



• *•• 

»02 • 
L>* Ait » 



**•* 

♦ 02 ♦ 

->• Al * 
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Chart G16. IHCDBUG (Part 2 of 4) 



»*** 

• 02 * 

♦ Al * — • , 

* * I 
ETARIT V 



♦SAVE DATA TYPE 

» 
•***♦♦♦♦••••♦♦♦• 



K»««»8i **♦♦♦♦♦*» 

► COMPUTE 

► LOCATION OF 

► ARRAY ELEMENT 

►♦♦»»**♦•»•♦»♦♦* 



•♦♦•CI********* 

OUTNAME 

PLACE NAME OF 

ARRAY IN 

DBUFFER 



* A<» *— i 

* * 

* *•* I 
\CEON V 



»»»»tDl ♦♦♦♦•♦♦♦♦♦ 

♦ ♦ 
♦COMPUTE ELEMENT* 
♦NUMBER AND MOVE* 

♦ TO DBUFFER ♦ 



♦ ♦♦♦ 

♦ on « 

->♦ Bl 



IOFLAG ON 
*. . ♦" 



•♦♦••B2 ********* 
♦INITARIT 

♦ -»-♦-.♦-♦-•-♦-♦- 
->♦ PROCESS ARRAY 

♦ ELEMENT 
• 
••**••**♦♦♦♦♦*♦♦ 



— -♦.END OF ARRAY 



♦♦♦♦D2»»»»» 
• RETURN 



t****E2 ********** 
•TURN IOFLAG OFF* 

♦ AND INSERT • 

♦ ADDRESS OF ♦< 

♦ ARGUMENT LIST ♦ 



♦ COMPUTE • 

♦ LOCATION OF * 

♦ ARRAY ELEMENT • 

♦ * 
***************** 



B3 ♦. 
.•ELEMENT*. 
.•LOCATION LE». NO 
". MAX ARRAY . » — 
♦. LOCATION . • 



♦♦♦*C3********* 

► 4 

• RETURN « 

► < 

*♦••••♦♦♦♦♦♦♦♦♦ 



•SET TRACE FLAG * 



♦♦♦♦♦♦♦♦♦♦*♦**♦♦* 



****$H* ******** 
t * 

► RETURN • 

► « 
♦♦*♦*♦♦*****♦** 



DISPLAY 
YES .♦' 



****E3** ******* 

OUTNAME 

PLACE AKRAY 
NAME IN DBUFFER 



>♦£«♦♦♦•• 

KETURN 



••♦• P3«* ••••••< 



A5 *. 
* *. 

IOFLAG ON 



n****B5********* 
» CONSTRUCT 

► NAMELIST 
* CALLING 

► SEQUENCE 

**************** 



*****C$********* 



**************** 



****Db********* 



»♦♦••••••♦♦♦♦ 



♦ ♦♦♦£!>*♦*•»•**' 
> RETURN 



tt»**F<3* ********* 

* MOVE MESSAGE * 
•'DISPLAY DURING* 

>»I/0 SKIPPED' TO* 

♦ DBUFFER • 



♦ OUTINT 

♦ CONVEHT LABEL 

• TO EBCDIC 



• •»* 

• on * 

->* BU 
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Chart G16. IHCDBUG (Part 3 of «4) 



»****»»*«*••***» 



*****%!********* 
• 

• SET IOFLAG TO 
•INDICATE I/O IN 

* PROGRESS 



*****C\********** 
♦SET CURBYTLC TO* 

* ADDRESS OF • 

♦ LOCATION OF ♦ 

* FIRST MAIN * 

♦ BLOCK • 
***************** 



t*Ol********* 
RETURN • 



»****B2 ********** 

• * 

♦ SET IOFJAG TO » 

♦ ENABLE FUTURE * 

* DEBUG CALLS » 

* » 
***************** 



.•ENOUGH MAIN*. 
. STORAGE TO . 
••SAVE INFO. • 



***»*£$******»*** 

• OUTPUT ♦ 

* WRITE MESSAGE * 
>• 'SOME DEBUG » 
•OUTPUT MISSING' • 



•***D3******* * 
> RETURN 



E2 « 



-FREECHAR 

EXTRACT 
CHARACTER 



J" 






• 


•MOVE 
• TO 

• 


FULL ARRAY* 
DBUFFER • 


• 








• 



t****j2* ******** 
•UPDATE POINTER 
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Chart G16. IHCDBUG (Part 4 of H) 



♦ ♦** 


• ou ♦ 


• Bl * — ■ , 


♦ * 1 


«•♦♦ 


OUTITEM V 


*»***Bl********* 



*«»*«C1********* 

♦ PREVENT 

♦ ALIGNMENT 
» ERRORS FOR 
•INTEGER/LOGICAL 



*♦♦* 

♦ 04 ♦ 

* b« ♦-- 



♦ SAVE RETURN ♦ 
♦POINT AND BASE * 

♦ REGISTER * 

♦ * 

***************** 



.* ♦ . 
*. IOFLAG ON 



*****C &♦♦♦♦♦♦♦♦♦♦ 

* * 

* SET IOFLAG TO ♦ 
->*INDICATE DEBUG ♦<- 

* OUTPUT * 

* * 

*************** +4 



DATA TYPE 



DATA TYPE 


1 BRANCH TO: 


LOGICAL 


IOUTLOG IGFOttFl 


INTEGER 


IOUTFIXED |GF0UF2 


REAL 


|OUTREAL |GF0UG3 




I 



OUTLOG 

*****fl*****»*» 

* MOVE * F' TO 

• POINTER TO 

♦ INDICATE ZERO 

• VALUE 



****F2**** ***** 

OUT FLOAT 

CONVERT 

FLOATING-POINT 

AND IMAGINAKY 



OUTINT 

CONVERT VALUE 
TO EBCDIC 

*************** 



**** 

» « 
• B«4 « 



****gil********« 
•RETURN TO IBCOM* 

♦ FOR ERROR MSG ♦ 

• • 
*************** 



i**»FH********> 



♦MOVE TO BUFFER ♦ 



OUTREAL 

•****G3*******t« 
* OUTFLOAT 

♦ CONVERT 
♦FLOATING-POINT 

♦ AND MOVE TO 

♦ DBUFFER 



♦RESTORE RETURN ♦ 
♦POINT AND BASE ♦<- 
♦ REGISTER ♦ 



t*Hl********i 



• ••• 

> * 
» B<t ♦ 

» • 

• •♦• 



• « 

• BU ♦ 

• « 
»♦»♦ 



♦♦♦♦ Jl ********* 
UPDATE POINTER 



****KU* *«»«♦**• 
► RETURN 



IOFLAG FULL 



»***E5^^^^ + 
GET CHARACTER 
*************** 



•****P5********** 

* * 
♦---ALLOCHAii ♦ 

♦ PUT CHARACTER ♦ 
♦IN SAVE AREA ♦ 



END OF LINE .»-~-J 



»*♦ »H5«*****»»» 

SET CHARACTER 

TO INDICATE END 

OF LINE 



♦»*»J5*»***»**»* 

ALLOCHAR ♦ 

PUT NEXT ♦ 

CHARACTER IN ♦ 

SAVE AREA ♦ 

* 

**»*•**»***•**** 
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active character : A significant character 
in the interpretation of a source state- 
ment. Always non- blank except during pars- 
ing of literal or IBM card code infor- 
mation. 

ADDR : Contains the address portion of the 
current POP instruction. 

ADDRESS (field) : A 2-byte item that is 
part of the pointer (indicating an address 
on a roll) and a driver (indicating the 
forcing strength of an operation) . 

ANSWER BOX : An item used to hold a true or 
false answer for those POP instructions 
which use or return an answer in their 
execution. 

BASE ; A status variable maintained for 
each roll used by the compiler which con- 
tains the beginning address of that roll 
minus 4. 

Base Table ; A list of absolute addresses 
from which the object module loads a 
general register prior to accessing data. 

BOTTOM ; A status variable maintained for 
each roll which holds the address of the 
last word on the roll containing 
information. 



control driver: 



A driver in Polish nota- 

indicate types of statements and 



txon to 

other control functions 



Branch Table : 



list containing the 



address of each branch target label and 
statement function used in the source 
module. 

branch target label ; A label which is the 
target of a branch instruction or 
statement. 

Central Items : Another name for SYMBOL 1-3 
and DATA 0-5. 

compiler phase ; A program consisting of 
several routines written in machine lan- 
guage and/or POP language; each phase per- 
forms a well-defined function in the trans- 
formation of the source module to the 
object module. 

compiler routines : The routines that com- 
prise each phase of the compiler and which 
may be written in machine language and/or 
POP language. 

CONSTR : Contains the beginning address of 
the data referred to by the compiler 
routines. 



CRRNT CHAR ; Contains the character (from 
the input statement) that is currently 
being inspected. 

CRRNT CHAR CNT ; Contains the column number 
of the contents of CRRNT CHAR; also called 
the • scan arrow' . 



DATA 0. 1. 2. 3. U. 5 ; Half word variables 

(except DATA 5 f which is two words long) 

used to hold constants used in the source 
module and other data. 

error listing : The display of messages 
indicating error conditions detected in the 
processing of the source module. 

EXIT roll : A special roll used by the 
compiler for maintaining exit addresses 
from compiler routines when a POP subrou- 
tine jump instruction is executed. 

EXT ADR : Contains the address of 
rent "bottom" of the EXIT roll. 



the cur- 



forcing strength : A value contained in the 
driver which indicates the order of the 
indicated operation (e.g., multiplication 
and division operations precede addition 
and subtraction) . 

global dummy variable : A dummy argument to 
a SUBROUTINE or FUNCTION subprogram. 

global label : A label used to define a 
program block. These labels may be 
referred to from any point in the program. 

group : The logical collection of informa- 
tion maintained on rolls; an entry on a 
roll. 

group size : The number of bytes of infor- 
mation constituting the group on a roll. 

Group Stats : Information maintained for 
each roll used by the compiler; pertains to 
comparative search operations. 

heading : Initializing instructions re- 
quired prior to the execution of the body 
of the object module. 

IEYALL : The system name for the compiler 
phase Allocate. 
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IEYEXT ; The system name for the compiler OPERATOR (field) : A 1-byte item that is 



phase Exit. 



IEYFORT : The system name for the compiler 
Invocation phase. 



IEYGE N: The system name for the compiler 
phase Gen. 

IEYPAR : The system name for the compiler 
phase Parse. 

IEYROL ; The system name for that area of 
the compiler which holds the WORK and EXIT 
rolls and the roll controls and group 
stats. 



part of the pointer and driver indicating 
the roll used (pointer) or type of opera- 
tion to be performed (driver) . 



optimization : The reduction and re- 
organization of object code for the 
increased efficiency of the object module. 



PGB2 : Contains the beginning address of 



the global jump table. 



plex ; A variable length group on a roll; 
the first word holds the number of words 
exclusive of itself. 



IEYUNF : The system name for the compiler 
phase Unify. 

indirect addressing ; A method of obtaining 
information held at one location by refer- 
ring to another location which contains the 
address of the value in guestion. 



INDIREC T BOX: Used to contain the address object module, 
needed in the indirect addressing operation 
performed by the POP instructions. 



pointer : This item is one element of 
Polish notation used to indicate references 
to variables or constants; indicates loca- 
tion of additional information on a roll. 

P olish notation : An intermediate language 
into which the source module is translated 
during processing and generation of the 



POPADR: 



Holds the address of the POP 



INSTR : Contains the "operation code" por- 
tion of the current POP instruction. 

item : Synonymous with variable. 

jump : Synonymous with branch. 

keep : Indicates the moving of information 
contained on a roll to another storage 
location and retaining the original infor- 
mation on the roll. 



LAST CHAR CNT: 



This item contains the 



column number of the last active character, 
i.e., the active character preceding the 
one currently being inspected. 



local dum my v ariable : 
a statement function. 



A dummy argument to 



instruction presently being executed. 

POP instruction : A component part of the 
POP language defined as a macro. 



POP interpreter : 



program written in 



machine language for the purpose of execut- 
ing the POP subroutines; labeled POP SETUP. 

POP jump table : A table used by the POP 
interpreter in transferring control to the 
POP subroutines. Holds addresses of these 
routines. 

POPPGB : Contains the beginning address of 
the machine language code for the POP 
instructions and the POP jump table. 



POPs, POP language : A macro language 
which most of the compiler is written. 



xn 



local label : 



label defined within a POP subroutines: 



program block which may be referred to only 
within that block. 

MPAC 1, MP AC 2 : Two fullword items used by 
the compiler in double- precis ion arithmetic 
operations. 

NAMELIST Table : A table which holds the 
name, address, etc. , for each variable 
listed in a single NAMELIST list in the 
source module. 

oper a t i on dr i ver : A 1-word variable which 
is an element of Polish notation and indi- 
cates arithmetic and logical operations 
designated in source module statements. 



The subroutines used by 
the POP interpreter to perform the opera- 
tions of each POP instruction. 

program text : The object code produced for 
the object module. 

prune , pr uni ng : A method of removing 
information from a roll, thereby making it 
inaccessible in subsequent operations. 

quote : A sequence of characters preceded 
by a character count; used for comparisons 
with the input data. 

QUOTE BASE : The initial address of the 
first quote (Parse). 
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recursion: A method of call and recall scan arrow: 



employed by the routines and subroutines of 
the compiler whereby routine X may call 
routine Y which, in turn, calls routine X. 



releasing rolls : The method of making 
information reserved on a roll available 
for use by the compiler. 

reserve mark: The 1-word value placed on a 
roll as a result of a reserve operation. 

reserving rolls : A method of roll manipu- 
lation whereby information contained on a 
roll remains unaltered regardless of other 
operations involving the roll. 

RETURN : Contains the return addresses for 
the POP subroutines. 



An item which refers to the 
position of the source statement character 
currently being scanned. 

source module listing : The display of the 
statements constituting the source module. 

storage allocation : The assignment of main 
storage to variables used in the source 
module. 

storage map : The logical organization of a 
program or module and its components as 
they are maintained in main storage. (This 
map may also be displayed on an output 
device. ) 

SYMBOL 1,2, 3: Halfword variables used to 
hold variable names used in the source 
module and other data. 



roll : A type of table used by the compiler 
whose location and size are changed 
dynamically. 

ROLLBR : Contains the beginning address of 
the base table. 

roll control : A term applied collectively 
to those items used in roll maintenance and 
manipulation. 



roll number: 



number assigned to each 



roll in the compiler for the purpose of 
internal reference. 

roll status items : Those variables main- 
tained for each roll which contain the 
statistics needed in roll manipulation. 

roll stora g e area : An area of the compiler 
in main storage that is allocated to the 
rolls. 



rung : 
roll. 



A word of a multiword group on a 



RUNTIME operations : Several routines which 
support object code produced by the com- 
piler. 

Save Area : An area of the object module 
used in linking to and from subprograms. 



TAG (field) : A 1-byte item that is part of 
the pointer (indicating mode and size of 
the object pointed to) and driver (indicat- 
ing mode of operation) . 

temporary storage : An area of main storage 
used by the compiler to temporarily main- 
tain information for subsequent use. 

terminal errors : Errors internal to the 
compiler causing termination of compilation 
of the source module. 

TOP : A status variable maintained for each 
roll which indicates the new BASE of the 
roll when reserved information is contained 
on the roll. 



traits : The TAG field (uppermost byte) 
a word on a roll. 



of 



translation : The conversion from one type 
of language to another. 

WORK roll : A special roll used by the 
compiler for maintaining values temporarily 
during processing. 



WRKADR: 



The address maintained for the 



WORK roll that indicates the last word into 
which information has been stored; the 
"bottom" of the roll. 



scalar variables : Nonsubscripted vari- WO , Wl , W2 , 
ables. 



Acronyms used to refer to 



the last groups of the WORK roll. 
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address computation instructions 134,135 
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addressing 

indirect 136,259 

relative 29,138 
ADR CONST roll 

description 159 

in Exit 56 

in Unify 52 
AFTER POLISH roll 

description 23,161 

in Gen 53, 54 

in Parse 37-40, 42 
Allocate label lists 193-196 
Allocate phase (IEYALL) 

cards produced 51 

definition 258 

detailed description 

general description 

location in storage 

rolls used by 44 

subprogram list 51 
allocation of main storage 
ALTER OPTION TABLE routine 
ALLOCATION FAIL routine 4 2 
ALPHA LBL AND L SPROG routine 14,45 
ALPHA SCALAR ARRAY AND SPROG routine 14,45 
ANSWER BOX variable 

definition 258 

description 26 

in Parse 38 
AREA CODE variable 45,55,57,146 
arithmetic and logical instructions 
130,131,139 

a r r ay 

description 18 

dummy 47,4 8 

in Allocate 48,4 9 

listing of 21 

position in object module 17 

roll 26,47,146 
ARRAY ALLOCATE routine 14,45,47 
ARRAY DIMENSION roll 150 



44-51 
12 
17 



28 
232 



ARRAY PLEX roll 158 

ARRAY REF roll 52,159 

ARRAY REF ROLL ALLOTMENT 14,52 

ARAY REF ROLL ALLOTMENT routine 

ARRAY roll 

assigning storage for 47 

description 14 6 

group stats for 25 
artificial drivers 40 
ASSIGNMENT STA GEN routine 54 
AT roll 54,159 



52 



base addresses 28 

BASE AND BRANCH TABLE ALLOC routine 

14,45,47 
BASE, BOTTOM, and TOP tables 23, 28 
base table 

assigning storage for 47 

definition 259 

description 17 

position in object module 17 

use in Allocate 48 

use in Exit 57 
BASE TABLE roll 

description 146 

in Allocate 45-48 

in Exit 56 
BASE variable 23 

definition 259 
BCD roll 45 

BLOCK DATA PROG ALLOCATION routine 14,46 
BLOCK DATA subprogram 

allocation for 46 

Parse processing of 39 
BOTTOM variable 2 3 

definition 259 
branch table 

assigning storage for 47 

description 18 

position in object module 17 

use in Allocate 47 

use in Exit 56 
BRANCH TABLE roll 

description 150 

in Allocate 47 

in Exit 56 
branch target label 12,18 

BUILD ADDITIONAL BASES routine 14,4 5,49 
BUILD NAMELIST TABLE routine 14,45,48 
BUILD PROGRAM ESD routine 14,45,46 
BYTE SCALAR roll 47,151 
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CALCULATE BASE AND DISP routine 14,45 
CALL LBL roll 149 
central items 

DATA 24,192,259 

definition 259 

description 24 

SYMBOL 24,191,259 
CGOTO STA XLATE routine 38 
character scanning 26-27 
code producing instructions 134 
CODE roll 

description 160 

in Exit 56 

in Gen 53, 54 

location 22 
COMMON ALLOCATION AND OUTPUT routine 

14,45,47 
COMMON ALLOCATION roll 47,156 
COMMON AREA roll 155 
COMMON data 12 
COMMON DATA roll 152 
COMMON DATA TEMP roll 155 
COMMON NAME roll 152 
COMMON NAME TEMP roll 156 
COMMON statements 

allocation for 45 
COMMON variables 

allocation of storage for 45 

listing of 21 
compiler 

arrangement 28-29 

assembly and operation of 136 

code produced by 175-183 

data structures 22 

design of 9 

flags used 27 

general register usage 28 

initialization of 33 

limitations of 9 

machine configuration for 9 

messages 27 

organization of 10,14 

output from 16 

purpose of 9 

receiving control 33 

relationship to system 19 

rolls used in 140-162 

storage configuration 15 

termination of 33, 35 
COMPLEX CONST roll 14 3 
CONSTR register 

definition 259 

description 28 
control block area (CTLBLK) 227 
control driver 

definition 259 

description 31 

formats of 185-211 
CONVERT TO ADR CONST routine 14,52 
CONVERT TO INST FORMAT routine 14, 52 
CRRNT CHAR CNT variable 

definition 259 

description 26 

in Parse 38 
CRRNT CHAR variable 

definition 259 

description 26 

in Parse 38 



data items 24,192,259 
DATA SAVE roll 145 
data sets 

SYSIN 15,33 

SYSLIN 15,33 

SYSPRINT 15,33 

SYSPUNCH 15, 33 
DATA statements 

allocation for 45 
DATA VAR roll 56,154 
DDNAMES routine 35 
DEBUG ALLOCATE routine 14,45,49 
decision making instructions 131,132 
DECK option 51 
DIMENSION statement 

allocation for 46 

variables specified on 29 
DISPLAY statement 

NAMELIST table for 18,19 
DMY DIMENSION roll 14,46,147 
DO loops 

in Allocate 46 

in Parse 3 9 

in Gen 55 

in Unify 12,51,52,53 
DO LOOPS OPEN roll 

description 144 

in Allocation 46 

in Parse 39 
DO LOOP UNIFY routine 53 
DO NEST UNIFY 14, 53 
DO STA XLATE routine 38 
DP COMPLEX CONST roll 143 
DP CONST roll 

description 143 

general 25 
drivers 

ADDRESS field 30 

artificial 40 

control 31,185-211,259 

definition of 30 

EOE 40,41 

formats of 185-211 

operation 30,260 

OPERATOR field 30 

plus and below phony 40,41 

TAG field 30 
dummy array 46,47 
dummy dimension 46 



END card 13 

omission of 39 

produced by Exit 57 
END STA GEN routine 54, 55 
ENTRY CODE GEN routine 14,53,54 
ENTRY NAME ALLOCATION routine 14,45,46 
ENTRY NAMES roll 54,147 
ENTRY roll 46 
EOE driver 40,41 
EPILOGUE GEN routine 14,53,54 
'epilogues 12,53,54 
EQUIV ALLOCATION PRINT ERRORS routine 

14,45,47 
EQUIV MAP routine 14,45,48 
EQUIVALENCE (EQUIV) ALLOCATION roll 
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47,48,156 
EQUIVALENCE (EQUIV) HOLD roll 145 
EQUIVALENCE (EQUIV) roll 46, 47, 151 
EQUIVALENCE (EQUIV) TEMP roll 145 
EQUIVALENCE OFFSET roll 45,152 
EQUIVALENCE statements 12,45 
EQUIVALENCE variables 

allocation of storage for 45 

description 18 

listing of 21 

map of 48 

position in object module 17 
EREXITPR routine 34 
ERROR CHAR roll 144 
ERROR LBL roll 148 
ERROR MESSAGE roll 144 
error messages 21 
error recording 4 2 
ERROR roll 42,148 
errors 

detection of 42 

recording of 21,42 
ERROR SYMBOL roll 149 
ERROR TEMP roll 144 
ESD cards 

general 12 

produced by allocate 
Exit label list 208-211 
EXIT PASS routine 14, 55 
Exit phase (IEYEXT) 

definition 259 

detailed description 

general description 

location in storage 

rolls used by 55 
exit roll 

definition 259 

description 24,161 

general 10 

in IEYROL 5 3 

in Parse 38 

location in storage 15 
EXPLICIT roll 149 
EXTADR register 

definition 259 

description 29 
extended error handling facility 232,212 



44, 47, 51 



55-58 
13 
15 



FULL WORD SCALAR roll 47,155 
FUNCTION subprogram 46,49 
FX AC roll 151 
FX CONST roll 14 3 



Gen label list 198-208 
Gen phase (IEYGEN) 

definition 259 

detailed description 53-55 

general description 12 

location in storage 15 

rolls used by 53 
GEN PROCESS routine 14,53 
GENERAL ALLOCATION roll 160 
general register usage 

used by compiler 28-29 

used by object module 20 
GET POLISH routine 14,53,54 
global area 136 
GLOBAL DMY roll 47,49,148 
global jump table 28,137,138 
global jumps 137, 138 
global label 136,137,259 
GLOBAL SPROG ALLOCATE routine 
GLOBAL SPROG roll 

description 142 

general 42 

in Allocate 48 

in Exit 56 
GO TO STA GEN routine 55 
GO TO statements, processing of 
group 

259 
24,25 



14,45,48 



54,55 



definition 
description 

group stats 

definition 25, 259 
description 26 
location in storage 
sizes 25 

group stats table 26 



15 



FL AC roll 153 
FL CONST roll 143 
flags 27 
forcing strength 

definition 259 

description 30,31 

in Parse 40 

table 31 
FORMAT ALLOCATION routine 14,45,48 
FORMAT roll 48, 157 
FORMAT statements 

description 20 

in Allocate 12,44,48 

listing of 21 

position in object module 17 
FORTRAN error routine (IHCIBERH) 42,228 



HALF WORD SCALAR roll 47,152 
heading 

position in object module 17 
HEADOPT routine 3 5 
HEX CONST roll 154 



IBEXIT routine 239 

IBFINT routine 215 

IEYALL (see Allocate phase) 

IEYEXT (see Exit phase) 

IEYFINAL routine 35 

IEYFORT (see Invocation phase) 

IEYGEN (see Gen phase) 

IEYJUN subroutine 138 

IEYMOR routine 34 
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IHCDBUG 

IHCDIOSE 

IHCECOMH 

IHCEDIOS 

IHCEFIOS 

IHCEFNTH 

IHCERRM 

IHCETRCH 



IEYPAR (see Parse phase) 
IEYPCH routine 34 
IEYPRNT routine 33 
IEYREAD routine 34 
IEYRETN routine 35 
IEYROL (see roll module) 
IEYUNF (see Unify phase) 
IF statement 37,38,39 
IHCADJST 229-230, 249 
236-239,258.6 
224-226, 245 

(see I HCFCOMH/ IHCECOMH) 
224-226, 245 
218-224,244 
229-230, 248 
233,253 
233,258 
IHCFCOMH/ IHCECOMH 
flowchart 24 3 

initialization operations 215 
input/output operations 218-226,227-228 
termination operations 239 
transfer and subroutine table 242.3 
IHCFCVTH 234 

235-236, 258.1 
234,258.5 

235.258. 2 
229-230, 248 
218-224, 244 

232-233,255 
235,258.4 

235.258. 3 
228-229, 250 
226-227,247 

231,251 
230-231,258 

239 
242.1-242.3 
IMPLICIT roll 153 
indirect addressing 135,260 
indirect addressing instruction 135 
IND VAR roll 

description 141 
in parse 37 
INIT roll 49,145 
Invocation phase (IEYFORT) 
definition 260 
detailed description 33-36 
general description 12 
location in storage 15 



jump instructions 132,133 



IHCFDUMP 

IHCFDVCH 

IHCFEXIT 

IHCFINTH 

IHCFIOSH 

IHCFOPT 

IHCFOVER 

IHCFSLIT 

IHCIBERH 

IHCNAMEL 

IHCSTAE 

IHCTRCH 

IHCUATBL 

IHCUOPT 



keep 

definition 260 
general 23 



Exit 208-211 

Gen 198-208 

Parse 185-193 

Unify 196-198 
labeled statement references 12 
labels 

branch target 12, 18 

detailed description 135,136 

global 135,136 

local 135,136 

mode 17,54 
LAST CHAR CNT variable 

definition 259 

description 26 

in Parse 38 
LAST SOURCE CHAR variable 38 
LBL FIELD XLATE routine 14, 37, 38 
LBL process routine 14,53,54 
LBL roll 45,46,54,153 
LEVEL ONE UNIFY routine 53 
LIB roll 140 

LITERAL CONST ALLOCATION routine 14,45,47 
literal constants 

description 20 

in Allocate 12,44,45 

position in object module 17 
LITERAL CONST roll 143 

LITERAL TEMP (TEMP LITERAL) roll 155 
LOAD and DECK options 33 
LOCAL DMY roll 14 8 
local label 136,137,259 
LOCAL SPROG roll 45,46,149 
LOGICAL IF STA XLATE routine 38 
LOOP CONTROL roll 52,156 
LOOP DATA roll 

description 157 

in Parse 38 

in Unify 53 
LOOP SCRIPT roll 142 



made labels 17,54 

map 

of scalars 47 
storage 21,44,50,260 

MAP option 51 

messages 

description 27 
location in storage 15 
printing of (IEYPRNT) 33 
produced by Allocate 48,49 
produced by Invocation 35,36 
produced by Parse 43, 44 

minimum system configuration 9 

MOVE ZEROS TO T AND C routine 14 

MPAC1 and MPAC2 variables 
definition 259 
description 26 

multiple precision arithmetic 26 



label lists 

Allocate 193-196 



NAMELIST ALLOCATION roll 48,49,155 
NAMELIST ITEMS roll 149,150 
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NAMELIST MPY DATA roll 57,160 
NAMELIST name 

roll 48 

table for 19 
NAMELIST NAMES roll 48,149 
NAMELIST tables 

definition 259 



description 
in Allocate 
in Exit 57 
listing of 



19 
12,44,47 



20,48 

position in object module 20 
NEST SCRIPT roll 

description 141 

in Unify 53 
NONSTD SCRIPT roll 141 



object module 

configuration of 17 

description of 17 

general register usage 20 

listing of 20,21,54,57 

writing of 49 
object-time library subprograms 
operation driver 

definition 259 
30 
185-211 



212-258.10 



description 

formats of 
OPERATOR field 

definition 259 

description 30-32 
optimization 52,53,259 
option table 242.1 
ORDER AND PUNCH RLD ROLL routine 14,55,57 



Parse phase (IEYPJ^R) 

definition 260 

detailed description 36-42 

general description 12 

location in storage 15 

rolls used by 37 
PASS 1 GLOBAL SPROG ALLOCATE routine 

14, 45, 48 
phases 

allocate 12,15,44-51 

components of 14 

Exit 13,15,55-57 

Gen 12,15^53-55 

Invocation^; 12,15,33-35 

Parse 12^5, 36-44 

Unify 12,15,51-53 
plex 

definition 260 

description 25 
plus and below phony driver 40, 41 
pointer 

ADDRESS field 29 

definition 260 

description 29 

OPERATOR field 29 

TAG field 29 



39 

165 



164 



165 



Polish notation 

arithmetic and logical assignment 
statement 164 

arithmetic expressions 

arithmetic IF statement 

array references 163 

ASSIGN statement 164 

assigned GO TO statement 

BACKSPACE statement 171 

BLOCK DATA statement 166 

CALL statement 17 2 

computed GO TO statement 

CONTINUE statement 165 

DATA statement 166 

debug statements 172-173 

DEFINE FILE statement 170 

definition of 259 

direct-access statements 170 

DO statement 165 

END FILE statement 171 

END statement 166 

ENTRY statement 164 

Explicit specification statements 

FIND statement 170 

formats 163-173 

FUNCTION statement 171 

general 10 

in Gen 12, 53, 54 

in Parse 13, 36, 39 

input/output lists 167-168 

labeled statements 163 

logical IF statement 164 

PAUSE and STOP statements 165 

PRINT statement 169 

PUNCH statement 169 

READ statement 167,168,169 

RETURN statement 164 

REWIND statement 171 

statement function 171 

SUBROUTINE statement 171 

unconditional GO TO statement 16 5 

WRITE statement 168,169,170 
POP instructions 

ADD 130 

AFS 130 

AND 130 

APH 127 

ARK 127 

ARP 127 

ASK 127 

ASP 127 

BID 134 

BIM 134 

BIN 134 

BOP 127 

CAR 128 

CLA 128 

CNT 128 

CPO 128 

cross reference list 139 

CRP 128 

CSA 131 

CSF 133 

definition 259 

detailed description 127-135 

DIM 130 

DIV 130 

EAD 128 



166 
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EAW 


128 




ECW 


128 




EOP 


128 




ETA 


128 




FET 


128 




FLP 


128 




FRK 


128 




FRP 


128 




FTH 


128 




general description 


10 


IAD 


129 




IND 


135 




IOP 


129 




I OR 


130 






129 




ITM 


129 




JAF 


133 




JAT 


133 




JOW 


133 




JPE 


133 




JRD 


133 




JSB 


133 




GUN 


133 




LCE 


129 




LCF 


129 




LCT 


129 




LGA 


131 




LGP 


129 




LLS 


130 




LRS 


131 




LSS 


129 




MOA 


131 




MOC 


129 




MON 


129 




MPY 


131 




NOG 


129 




NOZ 


129 




PGO 


130 




PGP 


130 




PLD 


130 




PNG 


130 




POC 


130 




POW 


134 




PSP 


131 




PST 


130 




QSA 


131 




QSF 


133 




REL 


134 




RSV 


134 




SAD 


131 




SBP 


131 




SBS 


131 




SCE 


132 




SCK 


132 




SFP 


132 




SLE 


132 




SNE 


132 




SNZ 


132 




SOP 


132 




SPM 


132 




SPT 


132 




SRA 


132 




SRD 


132 




STA 


132 




STM 


133 




SUB 


131 




SWT 


130 




TLY 


131 





WOP 
W1P 
W2P 
W3P 
W4P 
XIT 
ZER 



136 

(POPTABLE) 
260 
28,137 



15 

139 

127-138 
10 



137 



135 
135 
135 
135 
135 
133 
130 
POP interpreter 

definition 260 

description 

general 10 
POP jump table 

definition 

description 

location in storage 
POP language 

cross-reference list 

definition 260 

detailed description 

general description 

notation used 127 
POP SETUP routine 137 
POP subroutines 

assembler references to 

definition 260 

general 10 

location in storage 15 
POPADR register 

definition 260 

description 29 
POPPGB register 

definition 260 

description 29 
POPXIT register 

description 29 
PREP DMY DIMAND PRINT ERRORS routine 14,45 
PREP EQUIV AND PRINT ERRORS routine 14,45 
PREP NAMELIST routine 14,45,48 
PRESS MEMORY 21,22,193 
PRINT A LINE routine 14 
PRINT AND READ SOURCE routine 14, 37 
PRINT HEADING routine 14 

PRINT TOTAL PROG REQMTS MESS routine 14 
printmsg table 35-36 
PRNTHEAD routine 34 
PRNTMSG routine 34 
PROCESS DO LOOPS routine 14,45,46 
PROCESS LBL AND LOCAL SPROGS routine 

14,45,46 
PROCESS POLISH routine 14,39 
production of object code 

branches 175 

computed GO TO statement 175 

DEFINE FILE statement 179 

direct-access READ and WRITE statements 
179 

DO loops 175 

DO statement 175 

FIND statements 179 

FORMAT statements 180, 181 

formatted arrays 177 

formatted list items 177 

functions 176 

input/output 177 

PAUSE statement 179 

READ and WRITE statements 177 

statement functions 176 

STOP statement 179 
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subroutines 176 

unformatted arrays 178 

unformatted READ and WRITE statements 
178 
PROGRAM BREAK variable 45,46,47,48,49 
PROGRAM SCRIPT roll 

description 158 

in Parse 39 

in Unify 52 
program text 

definition 260 

description 20 

position in object module 17 
prologue 12,53,54 
PROLOGUE GEN routine 14,53,54 
pruning 

definition 260 

description 23 
pseudo instructions 10,127 
PUNCH ADCON ROLL routine 14,55,57 
PUNCH ADR CONST ROLL routine 14,55,56 
PUNCH BASE ROLL routine 14,55,56 
PUNCH BRANCH ROLL routine 14,55,56 
PUNCH CODE ROLL routine 14,55,56 
PUNCH END CARD routine 14,55,57 
PUNCH GLOBAL SPROG ROLL routine 14, 55, 57 
PUNCH NAMELIST MPY DATA routine 55, 57 
PUNCH PARTIAL TXT CARD routine 55, 56 
PUNCH SPROG ARG ROLL routine 14,55,56 
PUNCH TEMP AND CONST ROLL routine 14, 55, 56 
PUNCH USED LIBRARY ROLL routine 14,55,57 



136 



quick link output 
quote 

definition 260 

description 27 

location in storage 15 

QBASE 27 
quote base (QBASE) 

definition 260 

description 27 



REASSIGN MEMORY 18 5 
recursion 

definition 261 

in compiler 10 
REG roll 146 

REGISTER IBCOM routine 14,37 
register usage 

by compiler 28 

by object module 20 
relative addressing 29,137 
releasing rolls 

definition 261 

in Allocate 45 

in Invocation 35 
reserve mark 

definition 261 

description 23 
RETURN register 

definition 261 

description 29 
RETURN statement 

Polish notation for 37 



RLD cards 13, 56 

RLD roll 55,56,57,156 

ROLL ADR table 

in IEYROL 53 

in Invocation 35 

location in storage 15 

use in allocating storage 22, 35 

use in finding address of variable 30 

use in releasing storage 35 
roll control instructions 133 
roll controls 

general 21 
roll module (IEYROL) 

definition 261 

detailed description 53 

general description 13 

location in storage 15 
roll statistics 

BASE, BOTTOM, TOP 22 

location in storage 15 
roll storage area 

definition 261 

general description 21 
ROLLBR register 

definition 261 

description 29 
rolls 

ADCON 57,145 

ADR CONST 52, 56, 159 

AFTER POLISH 23,37-40,42,53,54,161 

allocating storage for 21, 22, 34 

ARRAY 26,47,146 

ARRAY DIMENSION 150 

ARRAY PLEX 158 

52, 159 



45-48,56,146 



155 



156 



ARRAY REF 

AT 54,159 

BASE TABLE 

BCD 4 5 

BRANCH TABLE 47,56,150 

BYTE SCALAR 47,151 

CALL LBL 149 

CODE 22,53,54,56,160 

COMMON ALLOCATION 47,156 

COMMON AREA 15 5 

COMMON DATA 152 

COMMON DATA TEMP 

COMMON NAME 152 

COMMON NAME TEMP 

COMPLEX CONST 143 

DATA SAVE 14 5 

DATA VAR 56, 154 

definition of 261 

detailed description 140-162 

DMY DIMENSION 14,46,147 

DO LOOPS OPEN 39,46,144 

DP COMPLEX CONST 143 

DP CONST 25,143 

ENTRY 46 

ENTRY NAMES 54,147 

EQU IV ALLOCATION 43,47,48,156 

EQUIVALENCE (EQUIV) 46,47,151 

EQUIVALENCE (EQUIV) HOLD 145 

EQUIVALENCE (EQUIV) TEMP 145 

EQUIVALENCE OFFSET 45,152 

ERROR 42,148 

ERROR CHAR 144 

ERROR LBL 148 

ERROR MESSAGE 144 
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ERROR SYMBOL 149 
ERROR TEMP 144 
EXIT 10,15,24,38,53,161,259 
EXPLICIT 149 
FL AC 153 
FL CONST 1H 3 
FORMAT 48,157 
formats 140-162 
FULL WORD SCALAR 47,155 
FX AC 151 
FX CONST 143 
GENERAL ALLOCATION 160 
general description 10,21 
GLOBAL DMY 47,49,148 
GLOBAL SPROG 42,48,56,142 
HALF WORD SCALAR 47,152 
HEX CONST 154 
IMPLICIT 153 
IND VAR 37,141 
INIT 49,145 
LBL 45,46,54,153 
LIB 140 

LITERAL CONST 14 3 
LITERAL TEMP 155 
LOCAL DMY 14 8 
LOCAL SPROG 45,46,149 
location in storage 15 
LOOP CONTROL 52,156 
LOOP DATA 38, 53,157 
LOOP SCRIPT 14 2 
NAMELIST ALLOCATION 48,49,155 
NAMELIST ITEMS 149,150 
NAMELIST MPY DATA 57,160 
NAMELIST NAMES 48,149 
NEST SCRIPT 53,141 
NONSTD SCRIPT 141 
POLISH 36-42,53,54 
PROGRAM SCRIPT 39,52,158 
pruning of 23 
REG 146 

releasing of 35,45,260 
reserving of 23, 261 
RLD 55,56,57,156 
SCALAR 47,48,154 
SCRIPT 36,37,52,53,157 
size limitations 22 
SOURCE 37,38,140 
special 24 
SPROG ARG 56,147 
STD SCRIPT 144 
SUBCHK 49,160 
TEMP 144 

TEMP AND CONST 45,55,57,144 
TEMP DATA NAME 150 
TEMP NAME 36,14 3 
TEMP POLISH 151 
TEMP PNTR 153 
used by Allocate 4 4 
used by Exit 55 
used by Gen 53 
used by Parse 36 
used by Unify 52 
USED LIB FUNCTION 48,55,152 
WORK 10, 15, 24, 38-41, 53, 54, 161, 261 
rungs 

definition 261 
description 24 



save area 

assigning storage for 47 

definition 261 

position in object module 17 
SCALAR ALLOCATE routine 14,45,47 
SCALAR roll 47,48,154 
SCALAR routine 14 
scalar variable 

definition 261 

listing of 21 

position in object module 17 
scan arrow 

definition 261 

description 26 
scan control variables 26, 27 
SCRIPT roll 

description 157 

in Parse 36,37 

in Unify 52,53 
source module listing 

definition 261 

description 20,42 

format of 42 
SOURCE option 36 
SOURCE roll 

description 140 

in Parse 37, 38 
special rolls 24 
specification statements 35 
SPROG ARG ALLOCATION routine 14,45,48 
SPROG ARG roll 56,147 
STA FINAL routine 14,37,39 
STA GEN FINISH routine 14,54,55 
STA GEN routine 14,54,55 
STA INIT routine 14,38 
STA LBL BOX 54 
STA RUN TABLE 54 
STA XLATE EXIT routine 38 
STA XLATE routine 14, 37, 38, 39 
START ALLOCATION routine 14 
START COMPILER routine 14, 37 
START GEN routine 14, 53 
START UNIFY routine 14, 52 
STATEMENT PROCESS routine 14,37,39 
status variable 23 
STD SCRIPT roll 144 
STOP statement 

Polish notation for 37 
storage map 

compiler 14 

definition 261 

description 21 

object module 17 

produced by Allocate 44,50 
SUBCHK roll 49,160 
subprogram addresses 

position in object module 17 
subprogram argument lists 

position in object module 17,51 
SUBSCRIPTS FAIL routine 42 
SYMBOL item 24, 261 
syntax error 42 
SYNTAX FAIL routine 38,42 
system names 11 
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tables 

base 17,47,56,259 

BASE, BOTTOM, and TOP 23,28 

branch 18,46,56 

global jump 28,137 

group stats 25,26 

NAMELIST 12, 18, 19, 20, 44, 48, 49, 57, 260 

POP jump 15,28,136,260 

printmsg 35 

ROLL ADR 15,22,28,34,53 

STA RUN 54 

unit assignment 239 
TAG field 

definition 261 

description 29-31 
TEMP AND CONST roll 

description 144 

in Allocate 45 

in Exit 55,57 
TEMP DATA NAME roll 150 
TEMP NAME roll 

description 143 

in Parse 38 
TEMP POLISH roll 151 
TEMP PNTR roll 153 
TEMP roll 144 
temporary storage and constants 

description 20 

position in object module 17 
TERMINATE PHASE routine 54,55 
termination of compiler 33,35 
TIMEDAT routine 35 
TOP variable 23 

definition 261 
TRACE option 54 

transmissive instructions 127-130 
TXT cards 

general 12 
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